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ABSTRACT 


This thesis documents the design of the hardware and embedded software of a digital computer 
that provides autonomous control of the PANSAT spacecraft. The system was designed for use during a 
two year mission in a low earth orbit. The computer uses an Intel M80C186XL running at 7.3728 MHz, 
512 kbytes of error-detection and correction RAM, 64 kbytes of ROM, and standard CMOS components to 
provide a general purpose microcomputer. The purpose of the computer is to control all subsystems of the 
spacecraft, perform analog-to-digital conversions, orchestrate duplicate hardware components to provide 
redundancy, and upload new software from a ground station. The hardware system was built on printed 
circuit boards which were manufactured by the Space System Academic Group and tested for proper 
operation. The embedded software was coded using 80186 Assembler and the C programming language, 


tested for proper operation, and placed into ROM as firmware. 
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l. INTRODUCTION 


A. Purpose 


The purpose of this thesis is to document the design of a system that implements the digital 
computer of the Petite Amateur Navy Satellite (PANSAT). PANSAT is an experimental, low cost, 
lightweight, communications satellite that is currently being designed and built by officer students 
supported by the Space Systems Academic Group at the Naval Postgraduate School in Monterey, 
California. The design consists of the implementation details of the hardware as well as the low-level 
software that is embedded within the system. The computer, called the System Controller, incorporates 
error detection and correction memory for random-access memory, a read-only memory, specialized 
synchronous and asynchronous serial communications, analog-to-digital conversion, a parallel digital bus 


for subsystem control, and power detection and DC-DC conversion. 


B. Scope 

Chapter II provides background information which includes a general description of the PANSAT 
project and its operational environment, radiation effects on electronic circuits, and general conventions 
used when writing this document. The third chapter presents an overview of the organization of the 
electronics of PANSAT, and a description of the hardware and software architectures of the System 
Controller. Chapter IV discusses the hardware design in detail. The fifth chapter describes the software 
device drivers design in detail and Chapter VI examines the higher-level software routines which use the 
device drivers. Chapter VII examines the testing of the hardware and software, presents recommendations, 
and ends with the conclusion. Several appendices follow containing the hardware schematics, the bill of 
materials for the hardware, software block and flow diagrams, software source code, and software 


generation facilities. 
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ll. BACKGROUND INFORMATION 


A. THE PANSAT PROJECT 


The PANSAT project began in 1989 as an educational program for students at the Naval 
Postgraduate School’s (NPS) Space Systems Academic Group (SSAG). The project goal is to provide 
meaningful and realistic research topics for students in the area of space systems engineering and space 
systems operations. In doing so, the Space Systems Academic Group has prepared students for space 
related tasks and has developed an infrastructure of facilities and personnel capable of developing space 


qualified systems. 


PANSAT is a small satellite for digital store-and-forward communications in the amateur 
frequency band. It features a direct sequence spread spectrum differentially coded, binary phase shift keyed 
(BPSK) communication system at an operating frequency of 436.5 MHz. The store-and-forward capability 
will allow NPS and amateur radio operators to send or receive messages during several short 


communication windows every day, each 4 to 8 minutes in duration. 


The entire satellite structure weighs approximately 150 pounds, has a diameter of about 19 inches, 
and is designed to be launched as a secondary payload from the Space Shuttle via the Hitchhiker Program. 
PANSAT is a 26-sided polyhedron, as shown in Figure 1, a configuration chosen to maximize solar panel 
area and thus power generation. PANSAT is not stabilized and will tumble freely once put into space. The 
satellite uses an omni-directional antenna system consisting of four quarter wave-length segments to 


achieve near uniform signal coverage regardless of PANSAT’s orientation while tunbling in space. 


PANSAT requirements specify a two-year mission life in a low-earth orbit (LEO) with an 
inclination between 28.5° and 90.0°[Ref. 1]. The Space Systems Academic Group has signed a 
Memorandum of Agreement with NASA Space Test Flight programming, ensuring a future flight onboard 
the Space Shuttle. Space Shuttle operational limits are altitudes between 203.7 km and 611.2 km and 


inclinations between 28.5° and 57.0° [Ref. 2]. 
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Figure 1. PANSAT Structure. 


MISSION LIFE AND OPERATING ENVIRONMENT 


1. Thermal Environment 


Thermal analysis for temperatures of electronics inside PANSAT examines two situations: a hot 


case and a cold case, depending on solar flux and Sun orientation, the Earth, and internal power dissipation 


within the satellite. The cold case expects the temperature inside during operation to be between -15°C and 


-6°C, and the hot case predicts temperatures from about -4°C to 13°C [Ref. 3]. While these temperatures 


are well suited for the operation of integrated circuits (IC), the batteries prefer a warmer environment; this 


will be addressed briefly in the section describing the Battery Charge Monitor, in Chapter VI. 


2e Operational Environment 

PANSAT electronics are expected to provide continuous operation throughout the life of the 
satellite. Solar panels will provide sufficient energy during the sun-soak portion of an orbit to allow 
continuous operations of the satellite and to store energy into the batteries for the eclipsed portion of the 
orbit. The PANSAT System Controller design incorporates two redundant, mutually exclusive, system 
controllers which are prevented from simultaneous operation because of the switching design within the 


electrical power system (EPS). 


3. Radiation Environment 

In LEO, PANSAT will be significantly protected from cosmic radiation and the solar wind due to 
the shielding effects of the Earth’s magnetic field [Ref. 4, p. 662], as well as the thickness of the structure 
itself. The primary source of radiation in LEO is low energy electrons, and low energy protons which are 
encountered mostly in the South Atlantic Anomaly (SAA) from approximately 45° latitude and 45° 
longitude centered near 20°N, 20° W [Ref. 5, p. 2339; Ref. 6, p. 2344]. Energetic protons, an occasional 
source of radiation, are expected with solar flares [Ref. 4, p. 712]. As aresult PANSAT should experience 


an 1onizing radiation dose rate of about one krad (Si) per year [Ref. 4, p. 452]. 


C. RADIATION EFFECTS ON ELECTRONICS 


There are two primary effects caused by radiation on electronics: an effect from the dose rate that 
causes single event upsets (SEU), as well as a total dose effect. PANSAT will orbit in a relatively benign 
radiation environment compared to other regions of space. The selection of PANSAT electronics 
incorporate some concern for radiation exposure; however, the structure of the spacecraft including the 
boxes which contain the electronic modules provides substantial radiation shielding. As a lowest common 
denominator of electronic component selection where redundancy applies, industrial temperature grade 
integrated circuits fabricated with Complementary Metal Oxide Semiconductor (CMOS) technology using 
epitaxial layers are used. Circuitry of PANSAT that presents a source of a single point of failure uses 
radiation hardened devices. Otherwise, these radiation hardened devices are expensive, power-hungry, and 


an unnecessary choice for PANSAT. 


1. Single Event Effects 

Single event effects (SEE) are the responses of an IC to the passage of a single highly energetic 
charged particle, and include single event upsets (SEU), single event latchup (SEL), and single event 
burnout (SEB). As a particle travels through the silicon layers of an IC, it loses energy creating ionization 
or electron-hole pair generation along its path. Generally, the higher the mass and charge of the particle, 


the greater the amount of ionization produced. 


SEBs are observed in power MOSFETs where high voltages and electric fields are present; and 
thus are not a real concern for PANSAT electronics of the System Controller. However SELs, the effect of 
activating a parasitic silicon controlled rectifier within a CMOS IC, has the potential to destroy a device or 
a portion of a device while it is in the latched condition. In order to reset the device it must be powered 
off. Fortunately, thoughtful device design can reduce or eliminate this effect. The SEU is the most 
common effect to upset an IC, resulting in a temporary or permanent change of state. SEUs are the result 
of the rate of individual hits on electronics, in particular an IC by high energy particles. SEUs result in 


errors within electronic systems by causing a change in the state of a logic storage element [Ref. 7]. 


2. Single Event Effects Experienced by PANSAT 

PANSAT is expected to experience a variety of SEEs throughout its lifetime. At worst, these 
effects will most likely cause a particular system to reset; initiating a restart of the electronics, as if a launch 
has just occurred. The design of PANSAT allows the electronic systems to be powered down, and then 


back up. Such action clears such SELs. Fortunately, PANSAT is not expected to experience many SELs. 


D. DOCUMENTATION CONVENTIONS 


1. Numbering 

By default, all numbers in this thesis are base-10 (decimal). Base-16 numbers (hexadecimal) are 
prefixed by the following notation, 0x. Thus, the number OxOF is the hexadecimal value for 15 (decimal); 
an exception to this rule is found only within the assembly language excerpts of the software module 
startup.asm where the convention of the assembler is to append an h#, e.g. OFh. Binary values are either 


evident (only one digit exists), or are pointed out within the text. 


2 Signal Names 

Signal names are chosen to best represent the function they perform. In addition, digital signals 
also include the logic assertion level. If a signal has an overbar across its name, e.g. RD, then that signal 
is considered active LOW; that is, it is considered asserted when the signal is a binary 0, corresponding to 0 


V. Otherwise, the signal is considered active HIGH; that is, it is considered asserted when the signal is a 


binary 1, corresponding to 5 V. 


3. Logic Expressions 


Logic equations for circuit diagrams and Karnaugh map analyses presented in this document use 
the + symbol for the inclusive logical OR function. The logical AND function is represented with the 


symbol *. The overbar either indicates the assertion level of a signal (as explained in the section above) 


when it is the result of an equation, or indicates the negation of a logic expression. Otherwise, for 


programming languages (i.e. C), the operator rules of the language apply [Ref. 8, Ref. 9]. 


4. Software Flow Diagrams 


Software flow diagrams use blocks to depict either a subroutine or a statement. Bold blocks refer 


to subroutines. 


The project background and expected operating environment were considered in designing the 
PANSAT System Controller hardware and software. In addition, the System Controller design was 
influenced by the other electronic modules of the spacecraft. An overview of the hardware and software 


designs as well as an introduction to the spacecraft electronic modules are presented in the next chapter. 





ll. PANSAT ELECTRONICS AND SOFTWARE 
OVERVIEW 


This chapter provides design constraints and tradeoffs that influenced the design of the System 
Controller. Furthermore, an overview of the electronic systems of PANSAT is presented as well as an 


architectural overview of the System Controller hardware and software. 


A. DESIGN CONSTRAINTS AND TRADEOFFS 


The design objective was to build a digital computer (system controller) using readily available 


components. Six major constraints influenced the design: 


Suitability for use in a short duration low-Earth orbit radiation environment. 

Printed circuit board area required. 

Speed of operation. 

Power required. 

Cost. 

High-level software environment support and compatibility with existing software tools. 


PANSAT will operate on a limited power budget; all power is dependent upon solar panels with 
batteries to store power. Generally, faster systems require more power. Furthermore, radiation hardened 
components usually require more power than the non-hardened counterparts. Also, radiation hardened 
parts are usually extremely expensive (averaging 20 times the cost of a comparable high reliability, non 
radiation hardened part). The cost of using radiation hardened parts within PANSAT is neither justified 


nor necessary. 


In general CMOS was chosen over other logic families because of its lower power consumption. 
Often, standard small scale integration (SSI) and medium scale integration (MSI) parts were chosen for 
logic generation because they are readily available and offer decreased susceptibility to SEUs at a 
reasonable cost. Since PANSAT System Controller operates at a relatively low clock rate, power was 


judged as less critical than size and functionality. 


Two families of CMOS logic ICs are used throughout the design of the System Controller, High- 
speed CMOS and Advanced CMOS [{Ref. 10]. The Advanced CMOS (AC) is approximately three to five 
times faster than the equivalent High-speed (HS) devices; however, the AC devices consume about 50% 
more power. AC components are also more expensive. AC components are used in the design only where 


necessary. They are mostly found in the memory glue logic. 


For many LSI and VLSI devices in this design, high reliability (not radiation hardened), military 
temperature rated components are used wherever possible. Many devices are processed to the 
MIL-STD-883 specifications. A few others are processed to industrial specifications. All circuit 
components are identified in Appendix C which contains the Bill of Materials (BOM) for the circuit board 


fabrication. 


B. PANSAT SUBSYSTEM HARDWARE GENERAL 
DESCRIPTION 


Figure 2 shows a block diagram of the entire PANSAT electronics. Redundant modules: System 
Controller (SC), Analog Temperature Multiplexers (TMUX), and Mass Storage (MS), are shown above 
and below the common electrical bus called the Peripheral Control Bus (PCB). Primary and redundant 
module designation is arbitrary since respective modules are essentially identical. Redundant modules in 
standby mode will be powered off. However, because the control bus allows individual module addressing 
by the active SC, either, or both, of the modules (TMUX or MS) may be enabled. The two remaining 
modules of the PANSAT electronics are the Radio Frequency (RF) system responsible for up and down 
conversion of the communication signals, and the Electrical Power Subsystem (EPS) which is responsible 


for the distribution of power on the satellite. 
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Figure 2. PANSAT Block Diagram. 


The EPS controls the charging of the batteries via the solar panels and the distribution of power to 
the rest of the spacecraft. The satellite has 18 solar panels for the production of power. Power is stored in 
two banks of nine batteries each. Each battery bank has the capability of providing complete power for the 
satellite. The mass storage system provides the memory needed for storage of telemetry and data uploaded 
to the satellite by users of the satellite. It contains two redundant systems, each with 4.5 Mbytes of random 
access memory. The TMUxX is an analog multiplexer which directs which temperature sensor is being read 
by a System Controller. There are temperature sensors on all major satellite components to provide a 


monitoring capability. 


C. SYSTEM CONTROLLER ORGANIZATIONAL OVERVIEW 


The System Controller of PANSAT is an embedded microprocessor-based computer system for 
the satellite. The electronics provide interface circuits to control all of the satellite’s subsystems, as well as 
create an environment capable of supporting high-level software. Firmware, embedded within ROM in the 
computer, is the software that is capable of initializing the entire satellite, maintaining the batteries, and 


conducting simple communications with Earth with the goal of uploading more sophisticated software. 
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aK Hardware Organization 

As mentioned above, the PCB is an 8-bit parallel control and data bus capable of uniquely 
addressing each subsystem in the spacecraft. Each subsystem has a unique power connection, switchable 
by command of the SC via the EPS. Also, each subsystem has a unique address in which it responds to 
commands issued by the active SC to perform reads and writes between the SC and the subsystem. Each 
subsystem has radiation hardened circuitry to interface the subsystem to the PCB. These components were 
chosen because this bus is not redundant and is a single point of failure. The electronic circuits of the PCB 
are always powered on when the spacecraft has bus power. These electronic circuits are responsible for 
isolating a subsystem from the bus when it is not powered on; the same circuits enable each subsystem to 


respond when powered on and addressed via a SC. 


The System Controllers differ from the other subsystems in that they are capable of controlling the 
PCB (rather than responding to the PCB). However, within the EPS is circuitry which allows only one SC 
to be powered on at a time in order to remove the possibility of two controllers manipulating 
simultaneously the PCB. A SC remains powered on unless it fails to notify the EPS within a certain time 


interval; thus a SC is subject to an external watchdog timer contained within the EPS. 


The system controllers are identical in design. However, the remaining discussions will normally 
refer to a single system controller, implying the same applies to the other SC. A SC is best understood by 
viewing its design from a top-down approach. As seen in Figure 3, at the top-most layer is a 
M80C186XL-10 microprocessor and some of its support circuitry for a clock and reset circuitry, to the 
right side are four other blocks. On the top-right is the general control input/output (I/O) module, the next 
block down on the right is the serial communications contro] module, next is the system memory module, 
and at the bottom is the Analog-to-Digital module. Also shown is the signal interface between the 
modules, required within a System Controller. A photo of the completed circuit board is shown following 


the block diagram. 
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Figure 3. System Controller Block Diagram. 
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Figure 4. System Controller Circuit Board. 


The M80C186 is available in many versions, each with a different maximum input clock rate. 
Within this document, 80/86 will refer to any version of the microprocessor, and M80C/186XL will refer 
specifically to the XL-10 (10 MHz) version which is used on board PANSAT. 


2. Software Organization 
The software organization of a SC resembles closely the hardware. However, since software not 
only provides control of hardware but also involves a process flow (the goal of the software is to do 


something from start to finish), further modules are useful in implementing the software for PANSAT. 


The goal of the software described within this document is to provide simple and reliable control 
of the spacecraft in order to upload high-level layers of software which are modifiable from a ground 
station. This software is known as the ROM Boot software. It is embedded on space qualified ROM, and 


is thus a permanent product, also known as firmware. 


Looking at the ROM boot software as in Figure 5S, the first software module is responsible for the 
System Controller Startup. Next is the Boot Loader software which works as a large loop, making sure all 


the other modules orchestrate together correctly. Within this boot loading process, there are modules 
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responsible for the control of the batteries, responding to communications requests from a ground station, 


and dealing with scenarios which require alternate configurations of hardware. 


PANSAT ROM Boot. 


Loader. 


Microprocessor 
RESET. 













Figure 5. ROM Boot Software Overview. 


Viewing from the software module perspective, Figure 6, there are device drivers for the CPU 
setup, the EDAC RAM, the PCB, the mass storage units, the serial communications, and telemetry 
gathering which includes driving the analog-to-digital circuits. This figure depicts all of the files required 
to describe the code of the entire ROM Boot software. 


This overview presented high-level descriptions of the System Conroller hardware and software in 
order to discuss in more detail the designs of these systems. The next few chapters describe in great detail 
the hardware and software designs of the System Controller, beginning with a presentation of the hardware 


that implements the satellite’s general purpose computer. 
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Figure 6. ROM Boot Software File Hierarchy. 
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IV. SYSTEM CONTROLLER HARDWARE 


A. MICROPROCESSOR 
The M80C186XL-10 microprocessor from Intel [Ref. 11, Ref. 12, Ref. 13] provides CPU 


functionality for the System Controller. This 10 MHz version provides well tested and high-level 
integration that is very suitable for PANSAT. Within the M80C186 package are the following integrated 


features: 


CPU core with a CISC instruction set, compatible with 8086/8088 instruction sets. 
Programmable memory (5) and peripheral chip (6) selects, with wait state generators. 
A clock generator, providing three timers. 

Programmable interrupt controller. 

Two channel Direct Memory Access (DMA) controller. 


The M80C186XL-10 was chosen for PANSAT for many other practical reasons, such as: 


e Military version (providing high reliability at a low cost) of the popular 80186. 
e The design team has extensive experience designing Intel-based embedded systems. 
e Software development tools were already available for this CPU architecture. 


1. Reset Circuitry and Timing 


A simple RC circuit forces the RES input of the M80C186XL low for a sufficient time so that the 
CPU assumes a Reset state. Values of R = 10 kQ and C = 1 uF create a time constant of 10 msec, assuring 


the System Controller board of stable power by the time the CPU Reset state is assumed. 


2 Input Clock 
A fixed frequency source of 14.7456 MHz feeds the X1 input of the M80C186XL, which in tum 


divides that signal by two to form a 7.3728 MHz processor and board level system clock for the peripheral 
devices which use clocks (serial communications controller, memory, and the A/D converter). This is well 
within the timing limits of the peripherals. Of particular concern are two peripherals. First, the 82C55A 
will operate up to 8 MHz (it does not use a clock, but rather will read and write up to a speed of 8 MHz). 
Second, the EDAC unit is designed to work with this timing, and would only allow approximately a 15% 
faster clock. Faster components would have to be incorporated in the design if the clock rate were to 


increase (this increase in speed would also cause an increase in power consumption). 
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3. Interrupts and Direct Memory Access 
The M80C186XL has an Interrupt Control Unit, shown in Figure 7, which synchronizes and 
prioritizes interrupt sources and provides the interrupt vector to the CPU. Hardware interrupts can 


originate from on-chip peripherals (such as the timers) and from four external interrupt pins. 
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Figure 7. Interrupt Control] Unit Block Diagram [from Ref. 12] 


External hardware interrupts supported with the design of the System Controller are Interrupt 
Requests (IRQ) 0 - 3, which are labeled INTO - INT3, and the DMA requests, which are labeled DRQO 
and DRQ1. IRQO through IRQ3 map to absolute interrupt numbers 12 through 15. DRQO and DRQ1 
map to absolute interrupt numbers 10 and 11. The IRQs are designated to the peripherals of the System 


Controller that require interrupt support, as shown in Table 1. The DMA interrupts are used with data 


transfers with the SCC. 


Interrupt/DMA | Absolute Purpose 
fmaguest  [iereupt [on 


DMAO 10 | SCC _W/REQA (Receive request) 
SCC DTR/REQA (Transmit request) 


Table 1. External Interrupt Requests. 
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4. Memory and Chip Selects 

The M80C186XL supports many programmable memory and chip select signals which reduces 
the number of external components needed to perform the logic of address decoding to memory and 
devices. For memory chip selects, there are six select outputs for three memory address areas: upper, 
midrange, and lower memory. One signal is provided for upper, another for lower, and four for the 
midrange memory. The range and starting addresses are user-programmable. A unique configuration was 
chosen for PANSAT. The ROM select is generated using the upper memory chip select. Traditionally, 
RAM is selected using a combination of the lower chip select and midrange chip selects, depending on the 
amount of RAM. Since only 512 kbytes of RAM exist, it is possible for the midrange chip select logic to 
generate all the select signals to the RAM. Since all of the RAM is EDAC controlled, this reduces RAM 
decoding since only the midrange chip selects need examining, the lower memory chip select can be 


ignored. 


The M80C186XL supports up to seven external peripheral chip selects. However, the System 


Controller only uses five chip selects (PCS4 —PCS0 ), leaving the remaining chip selects as buffered 
addresses (Al and AQ) ofthe CPU. These chip selects access a contiguous block of I/O address space. 
Each chip select goes active for 128 bytes. The base address can begin on any 1 kbyte boundary, and is 
programmed to begin with address 0 for PANSAT. Figure 8 shows the chip-select block diagram of the 
M80C186XL. Table 2 shows chip-select allocation for PANSAT. 
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Figure 8. Chip Select Block Diagram [from Ref. 12]. 
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5. Timers 

The M80C186XL contains a timer control unit which has three timers, of which two have external 
inputs and outputs. The internal timer, Timer 2, is used as a system clock tick generator. The two timers 
with external outputs, also have external inputs, allowing the triggering of the timers from external sources, 
independent of the CPU clock. Except for a system clock, the only other need for a timer for the System 
Controller is a hardware-timed power on switch for the RF output. Since the RF output can be on for up to 
ten seconds, the two timers are connected in cascade. These timers are used with an external gate to force 


the RF output off when the timer output expires. 


B. POWER SENSING AND REGULATION 


Power sensing and regulation are an important part of the System Controller circuitry. The 
circuits provide signal isolation between the System Controller and the Peripheral Control Bus when the 
SC is powered off, monitor switched power from the Electrical Power Subsystem (EPS), and provide 


regulated +5 V to the System Controller when active. 


1. Power On Detection 

The MAX8212 [Ref. 14] is a programmable voltage detector used to sense the powering on of a 
System Controller by the EPS. Since only the circuitry which isolates a System Controller from the 
Peripheral Control Bus (PCB) is active at all times, this voltage detector has the responsibility of quickly 
sensing the power on, removing the signal isolation between the System Controller and the PCB and 
activating the DC-DC converter, the MAX744A. The output (OUT) of the MAX8212 controls the enabling 
of the pass gates, 54HC125s, used to isolate signals between the SC and the PCB when the SC is inactive. 


When power on is not detected, OUT is high, disabling these gates. This circuitry is shown in Figure 9. 
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Figure 9. Power On Detect and Signal Isolation. 


The resistors labeled 120 are 120 Q resistors used to reduce current leakage into non-powered devices 


when the SC is not active. 


The MAX8212 uses input hysteresis to set the detect on and detect off voltage levels. These 
levels are programmed with external resistors. The selection of the resistors was determined by solving for 
the equations given in the databook (Equation 1) in conjunction with selecting resistors that are available as 
1% precision and highly reliable and reducing the source current used by the device. Three resistors are 
used, Rp, Rg, and Rg. The detect voltages are V,, for the high voltage in which the power on detect occurs, 


and V,, for the low voltage in which the power off detect occurs. 
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ik 1 R,+R 
= [Reh + 8, | ou 5) and V, = aaa 5) 
Ro t+ Rs ie, 1G (1) 


Power from the EPS to a System Controller will be between approximately 10 V to 15 V, 
depending on whether the solar panels are supplying power or the condition of the batteries, if stored 
energy is supplying power. A detect on, Vh, voltage of 9.0 V, and a detect off, V1, voltage of 8.0 V were 
selected. The resulting resistor values were determined: Rp = 21.5 kO, Rg = 147 kQ, and Rg = 1.0 MQ 


(all 1%). The resulting source current is 53 pA which is within the low operating range of the device. 


2. DC-DC Conversion 
The MAX744A [Ref. 15] is a current-mode pulse-width modulation DC-DC converter. This 


device awaits the EPS to provide the System Controller with switched power. The MAX744A takes an 
input voltage between 6 V and 16 V, an ideal range for the EPS, and converts it to a 5.0 V +5% output. 


The device can support a load current of up to 750 mA. 


Operating at an input voltage of 12 V, the MAX744A is most efficient (90%) when supplying 
about 400 mA of current. The System Controller and the Modem unit powered together require about 350 
mA (87% efficient). When operating with the Modem unit powered off, a System Controller requires 
about 70 mA of current (83% efficient). In normal operations, both the SC and the Modem will be 


powered on continuously. 


The MAX744A requires some support circuitry (resistors, capacitors, inductors, and a diode). 
The resistors and capacitors mostly control the programmable soft-start to ensure an orderly power-up by 
limiting surge currents. The recommended values for the components were used with the exception of the 
capacitor, C1, between the Soft-Start input and ground, and resistor, R1, between the Soft-Start input and 
Shutdown output. Selecting Cl =0.1 uF and R] = 511 kQ while expecting a typical input voltage of 12 V 
and an output current of 350 mA, a Soft-Start time of 5 msec is expected. Thus, the 10 msec Reset of the 
M80C186XL-10 is generous. On the output side, a low equivalent series resistance (ESR) capacitor was 
used to keep the output ripple less than 50 mV peak-to-peak. Additionally, an optional low-pass filter 
using an inductor and capacitor was added to further reduce the output ripple to about SmV peak-to-peak. 


The resulting circuitry is shown in Figure 10. 
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Figure 10. DC-DC Conversion. 


C. PERIPHERAL DATA BUS 


This section applies to the design of the Peripheral Data Bus which excludes the serial 
communications control (via the SCC) and the analog to digital converter. The Peripheral Data Bus 
consists of the circuitry required to implement the Peripheral Contro! Bus, circuitry to buffer signals that 
are passed on to peripheral devices (i.e. the 82C55 and the Modem board, and control signals for the 


EDAC and Modem board power). 


The System Controller contains circuitry to provide the driving capability of the Peripheral 
Control Bus (PCB) which links all of the subsystems of PANSAT with a common control and parallel data 
bus. This is accomplished using a programmable peripheral interface (PPI, or 82C55A) integrated circuit. 
In addition to manipulating the PCB, the PPI also controls the signaling to the memory system (the error 


acknowledge in the EDAC) and the power switch control to the Modem unit. 


TT Programmable Peripheral Interface 
The 82C55A is a CMOS version of the standard 8255A which provides a general purpose 
programmable peripheral interface (PPI) [Ref. 16]. There are 24 I/O pins which may be individually 


programmed in certain logical groups and operational modes. 


2. Peripheral Control Bus (PCB) 
During satellite startup, the Electric Power Subsystem (EPS) provides +5 V to the PCB. The EPS 
also cycles all power switches to the peripheral modules so that all are powered off except the +5 V power 


to the PCB. The PCB must be powered up prior to powering on a System Controller module. 


Zo 


Using the 82C55A in a strobed bi-directional parallel data transfer configuration with hardware 
handshaking, a digital bus was created with 8 data lines, 6 addressing lines, and two control lines consisting 
of read and write. In this mode, Port A of the 82CSSA is the bi-directional data buffer. And Port B 
provides an uni-directional address and control buffer. Port C provides the handshaking and three general 
purpose control lines which are used for controls not on the PCB, but within the System Controller, 


specifically the Modem Power control and the EDAC Error Acknowledge controls. 


Two data transceivers, 54HC245, are used to isolate the 82C55A from the PCB connector. Other 
signals potentially coming off the SC board onto the PCB are the System Controller Active (SC_A) and the 
RF Enable (RF_EN) signals. These signals are isolated from the PCB using a quad digital switch, a 
54HC125. The voltage threshold detector mentioned earlier assists in the implementation of the PCB 
isolation circuitry. This circuit disables the two data transceivers and the one digital switch from the PCB 


in the event that the SC board is powered down. 


A 25-pin male D connector is used for connection to the PCB. It contains the eight bits of data, 
six bits of address, 2 bits of control, +5 V, switched +12 V, grounds, the System Controller Active (SCA) 
signal, and the RF Enable (RF_EN) signals. Appendix B shows the pin assignments. 


3. | Modem Control Interface 

The Modem is tightly coupled to the System Controller microprocessor, similar to other on-board 
peripherals. However the Modem unit is physically contained on another board connected to the System 
Controller via a 37-pin female D connector. Using data transceivers on each board next to the connectors, 
buffered address, data, and control signals from the M80C186XL are passed to the Modem. Besides the 
microprocessor interface, the Modem also shares signals with a Serial Communications Controller (SCC, 
85C30) which is described later in this chapter. The signals shared between the Modem and the SCC are 
synchronous transmit and receive data, and their corresponding clocks. Also included are a signal to 
deliver the temperature of the Modem board to the System Controller and power and ground. The pin 


assignments are given in detail in Appendix B. 


The Modem operates independently of the microprocessor. However, the heart of the Modem 
board is the PA-100 demodulator [Ref. 17} which requires configuration by downloading (from the CPU of 
the SC) parameters as register sets. Occasionally, this processor requires its status to be read by the 
microprocessor, to determine if a different configuration is needed. Otherwise, the Modem sends and 
receives synchronous digital data between itself and the SCC on the System Controller without constant 


supervision by the microprocessor. 


Power is distributed to the Modem board in two ways. First, because the Modem board has 


isolation buffers which disable signals when the board is supposed to be powered off (similar to the PCB 
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isolation circuitry), there is +5 V delivered to the board at all times via the V,;, pins. Furthermore, when 
the Modem board is switched on by the System Controller, +5 V is delivered to the board via the +5 V 
pins. The switched power is handled by a Power Distribution Switch, the TPS2013 [Ref. 18]. The 
TPS2013 is a logic controlled heavy capacitive load power distribution switch in the form of an IC. It 
handles a maximum continuous current load of 1.5 A (more than sufficient for the 250 mA load of the 
Modem when powered on). This switch is controlled by the Modem Power (MODEM_PWR) signal which 
originates from Bit 0 of Port C of the 82C5SA, and is active low. 


4. CPU Signal Isolation and Latching 

In order to reduce the signal loading on the CPU and to ease the timing requirements on the I/O 
digital circuitry, an address latch, a data transceiver, and control signal buffers are used as shown in Figure 
11. Since the data signals are bi-directional between the CPU and the I/O peripherals, an appropriate bi- 
directional data transceiver is used, the 54HC245. This device is enabled using Peripheral Chip Selects of 


the CPU, PCS4 — PCS2 , when the Data Enable (DEN ) of the CPU is active. The direction of the transfer 


is controlled by the Data Transmit/Receive ( DT/R) signal of the CPU. Address signals travel one 
direction only, from the CPU to the peripherals. Furthermore, since the peripherals themselves decode 
whether or not they are addressed using the Peripheral Chip Selects, addresses generated by the CPU are 
latched every time they are generated. The Address Latch Enable (ALE) signal qualifies the addresses. A 
simple latch, the 54HCS573, is used to capture the addresses. Note, since Address 0 (AO) of the CPU is not 


used for I/O addressing this signal is not passed through the address latch. For peripherals, Al is the least 
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Figure 11. CPU Signal Isolation and Latching. 
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significant address bit. From the CPU point of view, all peripherals are even addressed. Furthermore, the 


Read (RD ) and Write (WR ) signals from the CPU are buffered. Normally, these signals are not buffered 


since they have adequate driver power. However, these signals are delivered off board to the Modem. 


5. Signal Timing to Modem Board 


All of the peripheral ICs that integrate with the M80C]186XL use an active low write signal, WR. 
The write action occurs on the rising edge of the write signal. This signal is sent through the Modem 
connector to supply the signal to the Modem board latch as well as the PA-100. The PA-100 however uses 
the falling edge of the write signal to perform a write action. Unfortunately, data from the CPU only 
becomes stable at this exact same time. This problem is worsened because the data enabling logic on the 
System Controller, which controls the enabling and direction of the bi-direction signal driver, delays the 
delivery of the data signals to the Modem board. As a solution to this problem, a higher speed device is 


used for the signal driver, the 54AC24S5 versus the 54HC245. In addition, the decoding logic of the 
peripheral chip selects, PCS4 — PCS2 , uses a high speed device for the OR gate, the 54AC32, to more 
rapidly enable the signal driver. The slower speed gate which ANDs PCS3 with PCS2 poses no problem 


since during a write to the PA-100 these signals are high and do not change. Finally, WR from the 
microprocessor is sent through an unused AND gate with the other input held high. This provides a further 
delay of the write signal to the PA-100. 


D. MEMORY 


The M80C186XL has a 16-bit wide external data bus. The memory address space is 20-bit, 
providing up to | Mbyte of byte addressable memory locations in the range from 0x0 through OxFFFFF. 
The memory address space on the 16-bit data bus 1s physically implemented by dividing the address space 
into two banks of up to 512 kbytes, as shown in Figure 12. One bank connects to the lower half of the data 
bus and contains even addressed bytes, where AO = 0. The other bank connects to the upper half of the 


data bus and contains odd addressed bytes, where AO = 1. Address lines A19 - A1 select a specific byte 


within each bank AO and Bus High Enable ( BHE) determine whether one bank or both banks are used in 


the data transfers. 
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PHYSICAL IMPLEMENTATION OF THE 
ADDRESS SPACE FOR 16-BIT SYSTEMS 
512 KBYTES 512 KBYTES 
FFFFF FEFFE 
FEFFD FFFFC 


putt 
=e 


A19:1 D15:8 BHE 07:0 AO 


Figure 12. 80186 Memory Addressing [from Ref. 12]. 


The System Controller Memory includes 64 kbytes of ROM and 512 kbytes of SRAM. Both 
types of data are addressed from the 16-bit wide external data bus explained in Figure 12. The memory 
system requires special buffers to temporarily latch both addresses and data during the memory access read 
and write cycles. Data transceivers reside between the memory circuitry and the microprocessor to reduce 
the signal loading on the external CPU address and data bus. The block diagram of Figure 13 shows a 
logical structure of this memory system. On the left are signals that pass between the CPU and the memory 
system. The AND gates combine the four memory chip selects from the CPU into one signal for the entire 
512 kbytes of RAM access. The block labeled ADDR LATCHES latches a memory address during the 
beginning of a memory read or write cycle. The blocks in the middle labeled EDAC_ MASTER_SM and 
EDAC SLAVE SM contain circuitry that implements the state machines to control the EDAC controller 
(the ACS630MS). The DATA_XCVRS block isolates the microprocessor data bus from the memory 
devices, reducing the signal loading of the CPU external address and data bus. The block named RAM 
contains the SRAM devices as well as the EDAC controller. At the bottom right is the ROM block. 
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1. ROM 


PANSAT has 64 kbytes of ROM, composed of two devices which implement the even and odd 
banks. The M27C256 is a 256 kbit (32 kbyte x 8-bit) CHMOS UV Erasable PROM. This is a5 V only 
EPROM requiring low power (200 pA maximum standby, and 30 mA maximum active). This is a military 
temperature range device with a high degree of protection against latch-up [Ref. 19]. This device provides 
easy interfacing with the M80C186XL. For development purposes, a low-cost standard version of this 


device exists. All devices can be programmed easily using the Dataman S4 [Ref. 20]. 


2. Error Detection and Correction 

Error Detection And Correction (EDAC) circuitry provides single-bit error correction with dual- 
bit error detection for all of PANSAT’s CPU-addressable Static Random Access Memory (SRAM). The 
error detection and correction is accomplished using a Hamming code to generate a check word for each 
data word stored in memory. The level of EDAC protection needed determines the number of check word 
bits per data word. Providing single-bit error correction with dual-bit error detection to an eight data bit 
word requires five check bits. To provide the same level of detection to a sixteen data bit word requires six 


check bits. 


When a data word is stored in memory, the associated check word is also stored. During a 
memory read operation the data word and the corresponding check word are retrieved from memory. A 
new check word based on the data word from memory is generated and compared with the stored check 
word. If the two check words are identical, the data word is assumed correct; however, three or more bit 
errors may not be detected. Correctable errors are identified and corrected. Words that are not correctable, 


but detected as incorrect, cause the error to be flagged. 


a. Existing Design 

The original Error Detection And Correction (EDAC) circuitry was designed by Oechsel 
(Ref. 21]. This design is a memory bus controller using a commercially available EDAC IC, the 
ACS630MS [Ref. 22]. The controller implements a sequential state machine to generate the required 
control signals for the SRAM (Mosaic’s MSM-8256 [Ref. 23]), provides transceivers and latches to isolate 


the SRAM data bus from the microprocessor local bus, and coordinates the operation of the EDAC IC. 


b. Modifications of the Write Back Control 

The original design requires that every word accessed from memory be written back to 
memory, regardless if there is an error or not. This is a good design in that the memory bus controller 
automatically corrects the error in the data word that is sent to the CPU, as well as the original data word in 


the SRAM. Although this does not affect the speed performance of the System Controller, since the EDAC 
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write-back occurs within the memory access cycle of the CPU, it does affect the power used. Writing back 
to every accessed memory location requires substantial extra memory accesses (i.e. using extra power) as 
compared to only writing back when memory is written to, or when memory is read and an error is 
detected and corrected. As a result, the write back control logic was modified to only write to memory 
when memory is being written to by the CPU, or when an error is detected and corrected following a 


memory read access. 


The control signal that causes SRAM to write a data word is MEM_WR. Figure 14 


shows a Karnaugh Map and the resulting equation that eliminates the write back of data during read cycles 


when the single error latch is not set. 
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Figure 14. Memory Write Back Logic. 


Using unused gates from the remaining glue logic needed to implement the memory bus 
controller, Figure 15 shows the circuitry which performs this write back function. 
54AC04 
54AC08 


S4AC32 


54AC32 





Figure 15. Memory Write Back Circuit. 


c. Modification of the Reset Circuitry 


The original design used an inverter to reset the master state machine. As an alternative, 
the flip-flop’s reset input is directly connected to Vcc. This is possible because by the time the 
M80C186XL has completed a reset during power up, it has asserted the reset signal during the power up, 


and the flip-flop has already reached the initial standby state (00). 
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d. Modification of the EDAC Error Acknowledge 

During the development of the original EDAC circuitry, for simplicity one of the 
peripheral chip selects of the M80C186XL was used to acknowledge a hard or soft error. Since all the 
peripheral chip selects have I/O addressing responsibilities for the System Controller, an alternative was 


needed. The 82C55A described above has control bits available on its Port C. Bit 2 of this port is used as 


the ERR_ ACK signal to the EDAC. 


e. Modification of the Transceiver Enables 
The original design of the EDAC circuitry connected the ROM directly to the 
microprocessor data bus. However, it is desirable to isolate the ROM from this data bus. To use the same 


transceivers that are used for the SRAM, additional logic was needed at the state machine outputs which 
control the enabling of these transceivers. Allowing a valid combination of Data Enable ( DEN ) and the 


Upper Memory Chip Select ( UCS ) with the state machine’s output (which is valid for a SRAM access), 


the following circuitry in Figure 16 shows the modification. 
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Figure 16. Memory Transceiver Enable Logic Circuit. 


E. ANALOG-TO-DIGITAL CONVERSION 


The System Controller is responsible for converting all analog signals pertaining to satellite 
telemetry (voltages, currents, and temperatures) to a digital counterpart. The SC accomplishes this using a 
dedicated analog-to-digital converter which is tightly coupled to the microprocessor bus. In addition, since 


incoming analog signals arrive whether or not the SC is active, an analog switch is used in conjunction 
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with the PCB isolation circuitry to automatically isolate these signals from a non-active SC. A low-pass 
filter removes the high frequency components associated with the Electrical Power Subsystem DC-DC 


conversion (and other high frequency noise generated within the satellite). 


1. A/D Converter 

National Instrument’s LM12H458 [Ref. 24, Ref. 25], a 12-bit data acquisition system, is used to 
provide analog-to-digital conversion to the System Controller. This device provides single-ended or 
differential self-calibrating conversion with its own sample-and-hold. Multiple conversions remain in a 
16-bit, 32 register FIFO buffer. An internal 8-word RAM stores the conversion sequence for a program 
that can acquire independently and convert up to eight acquisitions through the eight-input multiplexer. 
The LM12H458 runs on +5V and an input clock of up to 8 MHz. In standby mode, the device consumes a 


negligible 40 nA (maximum). Input signals can range from ground to +5.0 V. 


For PANSAT, the LM12H458 is configured to interface with the M80C186XL in a 16-bit data 
mode. The inputs of the LM12H458 can be single-ended or differentially acquired by use of 
programmable input configurations. In differential mode, the off-board analog signal with its accompanied 
ground are converted as a positive signal with reference to this accompanied ground signal. Otherwise, the 
ground of the LM12H458 can be used when converting in the single-ended mode. For the temperature 
sensor ICs, local to the SC and the Modem board, these signals are delivered single-ended, and thus 


conversion uses this mode only. 


The LM12H458 is capable of interrupting the microprocessor and uses this to signal end-of- 
calibration and end-of-sequence (acquisition finished) conditions. Although DMA is available, it is not 
used, sacrificing the M80C186XL’s two DMA channels exclusively for the Serial Communications 


Controller. 


2. Analog Switch 

Immediately after entering via the connector on the SC, analog signals pass through an analog 
switch. The DG411, a monolithic quad SPST CMOS analog switch from Harris [Ref. 26], provides this 
feature. This device has a low On-Resistance (less than 35 Q), and is a very low power device consuming 
approximately 5 uA. As mentioned earlier, incoming analog signals arrive whether or not a System 
Controller is active. Thus, this analog switch is used to isolate the incoming signals from a non-active SC. 
Three of the four channels of the DG411 are used to handle the off-board signals from the Electrical Power 
Subsystem and the two Temperature MUXing Subsystems. When the SC is powered off, this device is 
powered via the Peripheral Control Bus and the switches are forced open. Upon being powered on, the SC 


is designed to automatically close these switches, allowing the external analog signals to enter. 
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3. Voltage Clamping and Low-pass Filter 

Studies performed on a prototype of the Electrical Power Subsystem indicated high frequency 
components in incoming signals at frequencies around 4.5 kHz, attributed to the switching power supply’s 
DC-DC converter. Furthermore, unaddressed multiplexers from the Temperature MUX subsystems and 
the EPS create signals of about 9.5 V. After advancing through the analog switch, an analog signal is 
potentially clamped if over 5.0 Volts using a 5.1 V Zener diode, 1N751, and then enters a passive low-pass 
filter using an RC circuit where R = 1 kQ and C=0.1uF. The filter is shown in Figure 17. The filter 
provides a -3dB break frequency at 1.5 kHz. 


VOUT 





Figure 17. Voltage Clamping and Low-pass Filter 


4. Wiring 

As mentioned earlier, the acquisition of off-board analog signals can be performed differentially 
or single-endedly. Undesirable potential ground-loops may exist within the satellite electrical systems, 
causing differing ground reference points. In order to be able to compensate for this potential problem, the 
analog input system was designed to allow the following configurations. Off-board analog signals coming 
into a System Controller are sent using a twisted-pair wire set. One signal in the twisted pair is the so- 
called positive signal which carries the signal of interest for conversion. The other wire in the pair is the 


ground from the electronic circuits that are responsible for generating the signal for conversion. 


For the analog signals entering the System Controller, the board was designed to allow one of the 
following configurations. The ground signal from a twisted-pair can be ignored by using the single-ended 
mode of the LM12H458; this feature is software configurable. Additionally, a twisted pair ground signal 
can be isolated from the System Controller circuitry by not allowing the signal to pass beyond the 


connector; this is accomplished using a jumper. 


5. Connector 
A nine-pin male D connector passes incoming analog signals to the System Controller board. The 


pin-out is given in Appendix B. 
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6. | Temperature Sensing IC 

Although not part of the A/D conversion circuitry, a temperature sensing IC is used to provide a 
temperature sensor for the System Controller. A single-supply centigrade temperature sensor, the LM50C 
[Ref. 27], is a precision IC temperature sensor that can sense a range of -40° C to +125° C. The output 
voltage is linearly proportional to the temperature. It consumes very low power with a quiescent current of 
less than 130 pA while operating at+ 5 V. This sensor delivers its signal into the Analog-to-Digital 


converter. 


F. SERIAL COMMUNICATIONS 


The System Controller contains circuitry that allows both asynchronous and synchronous serial 
communications. The asynchronous mode provides an RS-232 compatible interface suitable for 
connecting to a standard computer serial interface, such as the COM port on a personal computer. The 
asynchronous RS-232 port is used for this purpose. In the synchronous mode, the System Controller is 
able to communicate with PANSAT’s Modem. The synchronous digital data passes through the Modem as 
the interface to the RF unit to provide the BPSK and spread-spectrum communication modes (either at 


9846 bits per sec for spread-spectrum mode or at 78.125 kbits per sec for the narrow band mode). 


PANSAT will transmit and receive at a center frequency of 436.5 MHz using direct sequence 
spread spectrum (DSSS), differentially encoded phase shift keying (DPSK) modulation. The 
communications data rate will be 9842 bits per second with a chipping rate of 1.25 mega chips per second. 
The chipping sequence is a pseudo random noise sequence produced from a 7 stage linear feedback shift 
register. In addition, the satellite will have a narrow band high data rate channel with a data rate of 


78.125 kbits per second. 


1. Serial Communications Controller 

The heart of the serial communications circuitry is the AM85C30 [Ref. 28], a serial 
communications controller (SCC) which provides two serial channels that are independently configurable 
for asynchronous or synchronous transmission modes with separate transmit and receive clocks. The SCC 
functions as a serial-to-parallel and parallel-to-serial converter with the CPU. It is software configurable 


by the M80C186. The SCC interrupts the microprocessor using the M80C186’s Interrupt Request 0, 


INTO. The signal, INT , is active low on the SCC and is thus inverted to be compatible with the active 
high INTO. A pull-up resistor keeps the output of the inverter low during the SCC initialization, thus 
producing no interrupt to the CPU. This circuitry is shown in Figure 18. 
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Figure 18. Serial Communications Circuitry. 


Channel A of the SCC is designated the synchronous channel for serial communications between 
the CPU of the System Controller and the Modem board. This channel is configured to send and receive 
data using external clocks (TRxCA and RTxCA) which are generated by the Modem board. While 
operating in the narrow-band mode, the modem supplies transmit and receive clocks of 78.125 kHz (1 byte 
every 102 usec). In the spread-spectrum mode, the modem supplies transmit and receive clocks of 9.842 
kHz (1 byte every 813 psec). Furthermore, the transmit and receive data signals (TxDA and RxDA) pass 
through to the Modem board. Channel A is also configured to assert the Request To Send (RTSA) signal 
which acts like a Push To Talk function found on radio transmitter equipment. This signal will be used to 


drive the RF unit when transmitting. Channel A has some additional signals used specifically with the 
CPU for DMA. The signals for a Receive Request ( W / REQA ) and for a Transmit Request 
(DTR / REQA ) are tied directly to the CPU’s DMA interrupt request inputs. The SCC uses active high 


assertion levels for its DMA requests: W/REQA for DMAO and DTR / REQA for DMA]. Inverters are 
used as in the case of the interrupt request, shown in Figure 18. This hardware configuration is capable of 
full-duplex communications. However, the hardware will only operate in a half-duplex due to the 
allocated frequency bandwidth in which PANSAT will operate. This synchronous channel is programmed 
to operate in the Synchronous Data Link Control (SDLC) mode which applies a cyclic redundancy check 
(CRC) using the CCITT CRC-16 algorithm with a CRC seed of OXFFFF. Thus, all synchronous data 
frames which fail the CRC are flagged as invalid and are ignored by software. 


Channel B of the SCC controls the asynchronous serial communication between the CPU of the 


System Controller and a separate Computer. This channel hosts the Serial Test Port Interface which is used 
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only for ground-based operations before launch. It is configured to send and receive data using an RS-232 
driver, describe below. This channel also drives Request To Send (RTS) and Clear To Send (CTS) signals 
which are used in the RS-232 handshake. A common clock, generated internally by the SCC as derived 


from the peripheral clock, is used to generate a data rate of 9600 bits per second. RTSB is used to drive the 
enable of the RS-232 driver discussed below. 


2. RS-232 Drivers and Receivers 

The MAX211E [Ref. 29] has multiple RS-232 line drivers and receivers that are suitable for 
communications in a harsh environment. Although the asynchronous communication mode will not be 
used while in flight, this mode will be used extensively during development, integration, and testing. This 
port is a main source of external physical coupling with other electronics, and a potential source of damage 
to electronics within the satellite. Thus, the justification for the device which has +15 kV electrostatic 
discharge protection. In RS-232 terminology, the System Controller acts like a Data Communications 
Equipment (DCE) and the separate computer is a Data Terminal Equipment (DTE). The signal 
assignments, described in Appendix B, follow this convention. The MAX211E is enabled by using the 


RTSB output of the SCC. When disabled (when not used for development purposes), the MAX211E uses 


a maximum supply current of 50 pA. 


3. Connector 

A 9-pin female D connector is used to pass the signals from Channel B used for asynchronous 
communication between the System Controller board and a separate computer. The pin-out configuration 
was chosen to be compatible with a personal computer COM interface so that a null-modem interface 
(crossing of send/receive signals) is not necessary. Thus, a straight through cable is used to connect the 


two systems. The signals, shown in Appendix B, are from the point of view of the System Controller. 


This concludes the discussion of the System Controller hardware design. This hardware supports 
the development and operation of software that control the spacecraft’s electronic modules by using the 
satellite’s general purpose computer. The device drivers for the System Controller hardware and the 


electornic modules of PANSAT are described in detail in the following chapter. 
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V. SYSTEM CONTROLLER SOFTWARE DRIVERS 


A. DESCRIPTION 


The Spacecraft Software for PANSAT is contained within the System Controller as partially 
embedded in ROM and additionally uploaded (from Earth) at the time of system bootup and when software 
updates are desired. Within PANSAT lie two (2) System Controllers, each with identical Spacecraft 
Software ROM. 


Operation of the spacecraft software consists of the completion of the hardware initialization and 
the creation of a runtime environment suitable for higher-level layers of software. Operation then consists 
of monitoring and charging the batteries while establishing primitive communication with the PANSAT 
Ground Station at NPS to begin the upload of the main operating system kernel and the secondary loader. 
Thereafter, a higher level protocol will then upload BAX (the BekTek AX.25 protocol handler), and 
another telemetry collector. AX.25 is a data-link layer protocol designed and used by the Amateur Radio 
community to perform digital packet radio communications [Ref. 30]. Using AX.25, the File System and 


user services software are uploaded. Finally, the spacecraft is then ready for ggeneral use. 


The software is written in C with 80186 assembler for critical code and the initial Bootstrap 
software. The spacecraft software incorporates the Spacecraft Operating System [Ref. 31] (SCOS), to 
provide an Application Program Interface (API) to simplify the job of writing multi-tasking applications. 
The Spacecraft Software also incorporates BAX [Ref. 32], to provide another API to simplify the use of 
AX.25 for Spacecraft Software tasks. 


The spacecraft software involves the porting and integration of SCOS and BAX. It also consists of 
various device drivers to interface with the hardware systems of the spacecraft, the collection and saving of 
telemetry, and an interface capability with possible experiment payloads via an RS-232 interface. 
Furthermore, the spacecraft software contains a store-and-forward mail system which uses the services of 
the File Transfer Level 0 (FTLO) protocol [Ref. 33]. Administration and system software and parameter 


update capabilities are also part of the spacecraft software. 


The discussion of software development that follows concentrates mainly on the code responsible 
for the Bootup software which is embedded in ROM; this is the core of PANSAT’s device driver software. 
Therefore, when referencing the generic term software within the following text, the reference will be to 
this Bootup software which contains the core device drivers and boot loader and not SCOS, BAX, nor the 


high-level user services. 
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B. 


STARTUP 


BLOADER 


SLOADER 
FLOADER 


C. 


















HIERARCHY AND MODULE RELATIONSHIPS 


A flow of software control from Reset to the completion of the Final Loader can be viewed below. 


Spacecraft | Spacecraft Function Ground Station Module | Ground Station Operations — “1 
Module 
e 





Send message to PANSAT, granting 
PANSAT authority to send a status 
message. 

e Listen for the spacecraft status 

message. 

Begin by sending messages to 
PANSAT, granting authority to 
send a status message, and listen 
for the spacecraft status message. 

e Use SCLOAD to prepare images of 
the O.S. kernel (KERNEL) and the 
secondary loader (SLOADER). 

e Use CONTACT to send binary 

images. 



































software tasks. 


Performs initial 
upload of software 
from NPS Ground 
Station: KERNEL 
FLOADER, 
CMDTLM. 
Performs AX.25- 
assisted uploads of 


and SLOADER, 
remaining software 


SC hardware R CONTACT 
initialization and O 
EDAC setup. M 
Setup C Runtime 
environment. 
Check batteries and | R SCLOAD 
charge. O CONTACT 
M 
transfers control to 
O.S. kernel 
Performs R SCLOADH Use SCLOADH to prepare (and 
secondary upload A send) images of AX.25 (BAX), 
of software from M Final Loader (FLOADER), and the 
from NPS Ground 
Station: FS, FTLO, 
BBS, other tasks. 


Listen for NPS 

NPS Ground Command/Telemetry (CMDTLM) 
R SCLOADH 
A 
M 

Used for further 


Ground Station. 
Station: BAX, 
software uploads. 
Table 3. Relationships Between Software Modules. 





Use SCLOADH to prepare (and 
send) images of the File System 
(FS), File Transfer Level 0 (FTLO), 
the Bulletin Board Server (BBS), 

and other tasks. 







STARTUP 


The name Startup refers to a software source code module. This module is software composed in 


80186 assembly language and is called startup.asm. After a System Controller receives a reset, it is the 


software contained within this module which is invoked first, containing the bootstrap code at the 


hardwired absolute memory location of OxFFFFO which is contained within the ROM. 


Startup has several goals. The first is to initialize any hardware peripheral on the System 


Controller board itself, so that the peripheral is placed in a known state (although not necessarily operable). 


This activity is called Hardware Initialization. Furthermore, Startup checks and clears all of the system 
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RAM which is controlled by the EDAC. Once the system RAM has been checked, data which is used by 
code composed in C (both embedded within the ROM) is relocated to RAM. This allows read/write access 
to variables referenced by C code. In order to support high-level floating point software statements, a 
floating point emulator (software-based) is used and must be set up before use by any higher-level software 


modules. Finally, a runtime environment becomes operable for the subsequent software modules, all 


composed in C, to operate normally. 


4. Hardware Initialization 


Hardware Initialization begins by programming the M80C186XL’s [Ref. 13] internal peripheral 
interface registers. These registers are grouped into a block with contiguous addresses and are by default 
referenced via an I/O reference beginning at OxOFFO0. This default reference was kept. The M80C186XL 
contains multiple Chip Selects to internalize chip select generation for ROM and RAM. After a Reset, the 
Upper Memory Chip Select (UCS) will correctly select when referencing the top-most 16 bytes of system 
memory, OxOFFFFO through OxOFFFFF. Therefore, the first initialization performed is to change the range 
of addresses that the UMCS will generate. In the case of PANSAT, where the ROM is 64 kbytes in size 


and occupying the top-most 64 kbytes of system memory, UMCS is configured to start selects at OxF0000 
for a block size of 64 kbytes. 


cl 

mov ax, OFFAOh ;upper memory chip select 
mov ax, OFO38h ;start of EPROM FO00:0h, 64K 
out ax, ax 

jmp far ptr START ; START OF0000h 


The bottom-most location of the 64 kbytes of system ROM is named START. At this location 
begins the remaining startup code. This code continues the programming of the peripheral interface 
registers. For memory and peripheral chip selects (LCS, MCS, PCS) the table below describes the 
configuration of these important selects. By not programming the LCS (not performing a read or write 


operation to the configuration register), this chip select remains inactive. 


Register Address | Register Value | Setup Description 


PACS OxFFA4 , 0x0000 Peripheral Chip Select base: PCSO = 0x0000, each block is 


0x80 in length. Bus Ready must be active to complete bus 
cycle, no wait states inserted in the bus cycle. 


MPCS OxFFA8 0x2000 Peripheral Chip Select: Starting at 0, PCS5/6 latch Al & 
A2, PCSx go active for I/O bus cycles, requires bus ready 
be active to complete bus cycle (applies to PCS4-6), no 
wait states inserted for PCS4-6. 


Table 4. Memory And Peripheral Chip Selects. 
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Before hardware peripherals of the system controller are initialized, Startup also configures the 
M80C186XL Timer0, used as a system clock, and the interrupt controller to temporarily disable all 
interrupt sources. Startup then configures the hardware peripherals. The PPI configuration ensures the 
device is setup for bi-directional data exchange with the correct handshaking (discussed in more detail 
later), and places certain control lines to their correct assertion levels. The Modem Power control bit 
(active LOW) is turned off (programmed to a 1), the EDAC reset line is set on (programmed to a 1), and 
the RF enable is turned off (programmed to a 0). After the PPI, SCC configuration follows, placing the 
device in the correct modes for synchronous communication for Port A, and asynchronous communication 


for Port B. 


2. Memory Check and Clear 

During Startup, before interrupts have been enabled and before a stack has been created and 
activated, the entire RAM is briefly checked for errors and in the same process the memory cells are 
cleared, removing the possibility of later RAM accesses causing EDAC soft or hard errors. First a write 
followed by a read of the data 0x55 and OxAA is performed in the entire RAM. The purpose of this 
alternating bit pattern test is to determine if there are data bus problems, bad devices, or chip select failures. 
However, this test only tests the ability of a device to hold data, but not that the devices are being addressed 
correctly. Thus, another test is performed which writes unique data to each location and then reads back. 
The unique data will be a 257-bit repeat test, e.g. cell 0 will get the value 0, cell 1 gets 1, .... Cell 256 gets 
256 (modulo 256 = 0), cell 257 gets 257 (modulo 256 = 1). Then the pattern repeats so that cell 258 gets 0, 
Cell 25) Sets Incite: 


In the event that memory cells fail a test, the software system will attempt to map out the bad cells 
if possible. However, if errors occur in the interrupt vector table, there is no mapping solution. The 


System Controller will force itself to fail to update the EPS watchdog timer, thus shutting itself down. 


3. Data Relocation 

Since all data (constants and variables) of any C software module are embedded within the ROM 
and may at some later point be relocated to RAM, data relocation is a necessary step for proper 
configuration of the C runtime environment. True constants (never modified data references) may remain 
in ROM. However, any variable which is not created on the C runtime stack, must be relocated and 
possibly initialized in RAM. The data relocation performed for PANSAT is based upon standard 
techniques [Ref. 34]. 


As already discussed, the 80C186 hardware architecture uses the concept of segments to organize 
physical directly-addressable memory. Software also uses the word segment. Segment, in the context of 


software, can refer to a physical 64 kbytes segment of the 80C1 86, or also a logical grouping of data or 
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code. DGROUP is a group of like data segments particular to the Microsoft C Compiler for code 
generation of a memory reference model called the Small Model. Small Model programs are by definition 
fixed in data segment size to a physical segment size of 64 kbytes (directly related to the 80C186’s 
architecture) and fixed in code segment size to also 64 kbytes. However, the data and code segments 
occupy separate physical segments, and thus provide up to 128 kbytes of code and data. As a convenience 


to the compiler and linker, data groups are created to collect similar types of data references [Ref. 35]. 


Data relocation begins by clearing any initialized data area in the DGROUP group. Initialized 
data is any data that is a variable, not created on the runtime stack, and is given a specific value at the time 
of code composition. Thus, it is necessary that this prior, initialized, value given to this variable must be 


preserved. As all of these initialized variables are relocated to RAM, their values are preserved. 


Data relocation continues with uninitialized data area in the DGROUP group. Uninitialized data 
is any data that is a variable, not created on the runtime stack, and is given no value at the time of code 
composition. Thus, it is assumed that any prior value given to this variable is not of importance. As a 
matter of consistency, all of these uninitialized data references are relocated to RAM and forced to the 


value of zero. 


4. Floating Point Emulation 

Although the 80C186 contains hardware and software hooks to allow a companion floating point 
coprocessor, namely the 80C 187, this option was not used for various reasons. Primarily, in the style of 
attempting to make a lean system controller, floating point arithmetic is considered a luxury and 
minimizing its use is practical. Also, this coprocessor, like many floating point processors, is a heavy 
power user consuming about 50% more power than the M80C186XL alone. Furthermore, using software, 
floating point arithmetic can be emulated. This emulation occurs at a great sacrifice of CPU cycles since 
some floating point instructions can take hundreds of more CPU time when emulated. However, floating 


point arithmetic is minimized. 


The software tools used for linking and absolute address location provide a ROMable floating 
point emulation library. Within the Startup are subroutine calls to the floating point library initialization 
routines. In cooperation, the C compiler when compiling translates all floating point expressions to a series 


of calls to subroutines. 


>. C Runtime 


Prior to the transfer of control to the code of the collection of C-composed modules, appropriate 
hardware interrupts are masked on, e.g. EDAC and Timer2. Furthermore, a runtime stack is created so 


that an area of RAM is set aside for stack-related operations. The stack for the C runtime environment is 4 
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kbytes of EDAC-controlled RAM, located just after the interrupt vector table. The stack creation actually 

occurs just prior to the calling of the floating point emulation routine. Transfer of control is accomplished 
by calling the main C software module, named main(). If ever main() should terminate, the code following 
this call turns off interrupts (not allowing the clock and Watchdog support software to operate) and finishes 


with a HALT instruction. 


D. CPU SUPPORT 


1. Timers and Interrupts 


a. Timers 
The Timer/Counter Unit, integrated within the M80C186XL [Ref. 12], supports three (3) 
independent 16-bit counter/timers. These timer/counters are used to generate a system clock implemented 


by the operating system, and other time-dependent functions. Table 5 shows the use of each timer. 


[0 | Transmitter time-out (Feeds clock to Timer 1) 
[i | Transmitter time-out (gates RF Enable) 


Table 5. Timer Allocation. 











Cascaded, Timers 0 and | can provide a maximum timer of 38.84 min (each timer is 
updated every 4 CPU clock which is 0.542535psec, 2'°*2'*0.542535usec). Timer 0 is programmed to 
run continually using PCLK as a clock and given a maximum count value of 2'°, providing a 35.5 msec 
clock for Timer 1. Timer | uses Timer 0 as its input clock. Using the dual count mode as a one-shot timer, 
Timer | is programmed to stay low when enabled for 10 seconds using a Count A value of 1 and a Count B 
value of 281. The output of Timer 0 is inverted before it is gated and passed off the System Controller 
board to the RF unit, providing an active high signal. Ten seconds Is a suitable length of time to enable the 


transmitter, and yet provide an automatic turn off mechanism. 


Timer 2 is programmed to interrupt the CPU at a frequency of 60 Hz, providing a tick 
counter to implement a system clock. This timer uses a maximum count of 30720 in a continuous count 
mode. The interrupt service routine counts the interrupts to maintain a second counter. Two API functions 
provide the ability for software to read and set the second counter, based on UTC from 1 January 1970. 
Thus, when PANSAT is reset, it begins with a date of 1 January 1970 until otherwise programmed by the 
NPS ground station. A 32-bit second counter allows dates until 2106. Within the clock ISR is the chaining 


to the EDAC RAM Wash subroutine which is explained in more detail later in this chapter. 
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get_time() Get UTC time in seconds (elapsed 
ee [ims ta seconas ce Ion 19703 
set_time() Set UTC time (elapsed time in 
Ls eae 
Table 6. Clock API functions. 


b. Interrupt Priority Structure 

The Non-Maskable Interrupt (NMI) is the highest priority interrupt and will be disabled 
via hardware to prevent this event from occurring unless the Error Detection and Correction (EDAC) 
circuitry is enabled. Maskable interrupts are the most common way to service the external hardware 
interrupts. Globally, software can enable or disable the maskable interrupts. Maskable interrupts have 
priorities among themselves which are determined by the programming of the interrupt control unit and the 
support circuitry. Exceptions occur when an unusual condition prevents further instruction processing until 
the exception is cleared. Software interrupts are generated by software using the JNT n instruction. The 
M80C186XL handles exceptions and software interrupts in the same way as hardware interrupts and are of 
lower priority than the maskable (hardware) interrupts. All unused (undefined) interrupt vectors are 
initialized to point to OxOFFFFO, the Reset vector, so that if an undefined interrupt occurs, the system will 


perform a reset. Table 7 shows the interrupt vector use. 


43 


Interrupt Interrupt Function 
Vector 
Number 


0 
i 
12 
13 
i4 
is 
16 


i7 
19 
20-253 


Table 7. Interrupt Vector Allocation. 





2. EDAC (Setup and RAM Wash) 


Error Detection And Correction (EDAC) memory will cover all addressable Spacecraft Software 
system RAM and will ensure the state of memory which is within the data and code addressing range of the 
M80C186XL. The memory decoding is designed such that all of the 1/2 Megabyte of direct addressable 
memory, from 0 to Ox7FFFF, is EDAC RAM forthe CPU. With the EDAC circuitry enabled, all memory 
cycles to RAM, either byte or word size, will be intercepted by the EDAC. Each write generates error 
correction patterns which are recorded as well as the data. Each read retrieves the data as well as the 
correction patterns to determine if the data read is correct, is correctable (soft error), or is not correctable 
(hard error). The EDAC will indicate these two types of error to the M80C186XL via interrupts. The soft 


error produces a maskable interrupt, INT3. The hard error produces a maskable interrupt, INT2. 


There are two errors associated with aRAM memory cycle. The first error is called a soft error 
and is completely correctable. With a soft error, the EDAC is able to reconstruct the correct bit pattern of 
the byte or word cell. The EDAC will respond to a soft error by sending the correct byte or word and then 
asserting an interrupt. The interrupt service routine (ISR) is responsible for remembering at what time the 
soft error occurred. The second error is a hard error which is not correctable. In the event ofa hard error, 


the EDAC asserts another interrupt. The soft error service routine will first save the necessary registers on 
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the stack. Then a message indicating that a soft error occurred will be sent to the Event Logger. The soft 
error service routine will then restore the registers and return from interrupt service. The hard error service 
routine must assume that any RAM cell is corrupted and cannot necessarily be corrected, because the 
location cannot be determined. Therefore, this service routine will suspend all interrupts, place all the 


hardware systems into an idle or off state, and then reboot the M80C186XL by jumping to the boot vector. 


a. Initial RAM Clearing 

Upon microprocessor RESET (during startup), the EDAC Hard and Soft Interrupts are 
turned off. All RAM cells are subject to the checking and clearing process described earlier in the startup 
module. Then the EDAC Hard and Soft Interrupts must be cleared. This is accomplished by placing the 
EDAC Hard/Soft Interrupt Clear signal momentarily /ow (at least one bus cycle). Finally, the EDAC Hard 
and Soft Interrupts are turned on. Note that the EDAC circuitry is always operating, however software can 
ignore EDAC error signals when necessary. Initial RAM clearing can be performed as word write 


operations, reducing the time required to perform the initialization process. 


b. RAM Wash 

The process of performing a RAM wash involves a regularly scheduled software task to 
read data from RAM. However, the data does not need to be written back. The hardware design 
automatically writes back a data word that is incorrect (1 bit error, correctable). This process will cause the 
EDAC circuitry to reset the correction patterns. In the event that a RAM cell develops a bit error, it is 
desirable that a RAM cell is washed before the RAM cell develops a second bit error. If the wash occurs 
before the second bit error, the cell and the correction pattern will be updated, reflecting no errors. In the 
event that a second bit error occurs before the RAM wash, the data will not be correctable and a hard error 
will be generated. RAM wash can be performed using word write operations. The frequency of RAM 


washes must occur such that second bit errors do not occur. 


As an initial rate of washing RAM, the RAM wash software performs RAM reads on 
small blocks of continuous data and then returns control to another software routine. This is repeated over 
and over again until the entire 512 kbytes of RAM have been washed. The process then repeats. A block 
size of 256 bytes (128 16-bit words) can be washed quickly and simply using a REPS MOVSW which is 
part of the M80C186 instruction set. There are 4096 separate blocks of 128 bytes within the entire 512 
kbytes of RAM. A block wash cycle takes approximately 168 psec. Interrupts and DMA must be off. 


An estimation of the number of SEUs expected in RAM was performed by Oechsel 
[Ref. 21] based upon data from UoSAT-?2, a microsatellite similar to PANSAT regarding its orbit and types 
of electronics. Conservative assumptions indicated that the number of SEUs expected is 1.0 x 10° 


SEUs/bit/orbit. This equates to an expected time between uncorrectable errors of 1.8 years (nearly the 
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expected lifetime of PANSAT). In particular, one assumption declares that the RAM wash will occur once 


90 minutes _ 1.3184 sec 
4096 blocks —_ block 


(2) 
per orbit. This rate of washing appears suitable. 


This frequency of beginning a block wash is an integral number. If a wash was initiated 
every second, then the calling of the wash routine would be easy to implement into the clock ISR. This 


imposes a very small overhead when considering CPU time associated with RAM washing: 


c. Processing a Single Bit Error 


The interrupt service routine (ISR) for a single bit error consists of removing the interrupt 


ee = ee which corresponds to an overhead of 0.0168%. (3) 

condition from the EDAC circuitry by toggling an EDAC control line via the PPI. The EDAC interrupts 
are level-sensitive. This ISR must acknowledge the interrupt by incrementing a single bit error counter and 
posting the time and date of the single bit error to the Event Logger. Because EDAC interrupts are level- 
triggered, further single-bit error interrupt requests will not be detected while software is executing the 


interrupt service routine. Single-bit errors cause a counter to be incremented, accumulating a count of total 


single-bit errors. 


d. Processing a Dual Bit Error 

To reduce the chances of system failure, the dual-bit error interrupt service routine 
should not be stored in RAM since it is susceptible to dual-bit errors. Because dual-bit errors are not 
necessarily correctable, software should not attempt to continue operating on the system that experienced 
the error. The dual-bit error interrupt service routine will place the processor into a halt condition, causing 


the watchdog timer update to fail and thus shutting down the system controller and starting up the alternate. 


F. MAIN 


The convention in a C programming environment is for the function named main() to be the first 
subroutine invoked when the C program is executed. This same convention is followed for the PANSAT 
ROM Boot software with the exception that after a microprocessor reset, the Startup software executes 
first, setting up a suitable runtime environment for the actual C program. A flow diagram of the PANSAT 


ROM Boot software main() routine is shown in Figure 19. 


46 


ROM Boot Loader. 







Check Reset Watchdog 













ih EF 


heck 
A/D ISR Battery Charge ae 
; Monitor. S : 
cenanos. 


RF Listen 


Check/Process 
Command. 


Figure 19. ROM Boot Loader. 
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This diagram begins with a block named Setup which initiates the Interrupt Service Routines, 
represented on the left side of the diagram. Setup also initializes many variables used to control the Boot 
Loader loop. The loop calls each of the blocks shown within the loop on a continual basis. Since a multi- 
tasking operating system is not present within the ROM Boot Software, this software loop depends on each 


subroutine called to transfer control back to the main loop on a timely basis. 


The loop begins by checking telemetry (obtaining the most up-to-date sensor data possible), next 
is a check on the battery charging, followed by monitoring the RF system for receiving NPS-based 
transmissions and subsequently transmitting a response. Since this software is also used for testing and 
integration purposes before spacecraft deployment, the Serial Test Port Interface (STPI) is monitored in 
case an external computer is sending requests. Next, any incoming command either via the RF system or 
the STPI is verified and processed. In case there is an apparent hardware failure, alternate hardware 
configurations are checked and used. And, finally the watchdog timer on board the Electrical Power 


Subsystem is reset, indicating that the software is functioning and the System Controller that is currently 
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Operating should remain so. The loop then repeats. In the event of successful operation of the Boot 
loading process, a secondary loader will be uploaded from NPS to the spacecraft. This secondary loader 
will then take control. The ROM Boot Loader will cease to operate. These higher-level software services 


are discussed in more detail in the following chapter. 


F. PROGRAMMABLE PERIPHERAL INTERFACE 


The Programmable Peripheral Interface (PPI) [Ref. 16] has multiple functions, interfacing with 
several spacecraft components. The primary use of the PPI is to control the Peripheral Control Bus (PCB) 
which is discussed later in this section. The PPI also serves to control the EDAC circuitry with three 


control lines, and performs the Modem mode select using two control lines. 


le EDAC Control 


The PPI has one control line which interacts with the EDAC circuitry. This control line is used to 
acknowledge to the EDAC that either a hard error or soft error was received and the EDAC state machine 
should clear the error. Failing to clear the EDAC hard/soft error will result in the continual assertion of 
that condition. This control line can clear the errors by forcing it low and then high again, (presumably 


during the interrupt service routine); normally, this control line should remain high. 


2. Peripheral Control Bus 
The Peripheral Control Bus (PCB) provides the interconnectivity between all of the functional 
subsystem electronic components of the spacecraft. This bus identifies each peripheral with a unique 


address, transmits eight bits of data, and accomplishes this data transfer with read and write control lines. 


3. PPI Control Interface 


The active System Controller has control of a PPI by selecting the device associated with PCS1. 
This PPI is programmed to Mode 2 (strobed bi-directional bus I/O) with a value of 0xC0 to the control 
port. This allows control of the PCB as well as the three unused control lines for the EDAC and Modem 
mode selection controls. The configuration of the 8255 and its port assignments are shown in detail in 


Appendix D. 


4. Peripherals of the Control Bus 

The RF system and the EPS on this bus are not duplicated; all other peripherals are paired. Thus, 
there are two System Control peripherals, containing a System Controller (SCA and SCB), two Analog 
MUX (AMA and AMB), and two Mass Storage units (MSA and MSB). The least significant bit in the 


device selection chooses between one of the two ports of the device. Note the distinction of this versus the 
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sub-address bits (bits 5 and 4); these bits feed through to the selected port, as in the case of addressing a 
PPI which requires 2 address lines for the PPI registers. The table below identifies each peripheral and 


indicates the corresponding addresses. 


System Name System |[S3 -S0] | System 
Electrical Power System /1000,1001 8,9 
System Control A 


System Control B 
Analog MUX A 
Analog MUX B 
Mass Storage A 
Mass Storage B 









RF System 






Table 8. Peripheral Control Bus Devices. 


5. Reading from the Control Bus 


Place peripheral select and device sub-address in Port B. 

Set the Read bit to Low to indicate beginning of read. 

Toggle the input strobe (STB) to load the data into the input latch. 
Set the Read bit back to High to indicate end of read cycle. 

Read the data from Port A. 


MW PWN 


6. Writing to the Control Bus 


1. Place data in Port A. 
2. Place peripheral select and device sub-address in Port B. 
3. Toggle the Write bit (High to Low to High) to force the write. 


7. Software Interface 


A software interface to allow application tasks to talk to peripherals on the Peripheral 
Control Bus requires a function to read from a peripheral, and to write to a peripheral. Reading and writing 


follow a very similar sequence of operations on the control bus. 


a. Application Programming Interface 


The low level software interface functions, available to a task, are identified below. 
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Table 9. Low Level Peripheral Control Bus Software Interface. 







b. Timing Requirements 

Reading and writing the PCB are fundamental operations that most software modules use 
extensively. Thus, it is necessary and useful to determine the amount of time these operations cost. The 
pcb _write() function takes 180 clocks, and thus at 7.3728 MHz takes 98 psec to complete. The pcb_read() 
function takes 220 clocks, requiring 119 psec. The consequence of the times required are most obvious in 


the management of the Mass Storage units; this is discussed in a later section. 


G. ELECTRICAL POWER SUBSYSTEM 


The Electrical Power Subsystem (EPS) is responsible for generating the power delivered to all 
other systems within the satellite. Using the Peripheral Control Bus, the switches on the EPS can be 
toggled. The EPS contains eight ports which contain various switches to control EPS battery functions and 
to power on/off other devices on the Peripheral Control Bus. Software will keep track (via copies of the 
EPS registers) of all of the settings for all of the EPS ports. Appendix E contains many tables that describe 


the EPS ports and the switch assignments of the ports. 


1. EPS Port Organization 


Ports 0, 1, 2, and 3 of the EPS are used to control the configuration of the EPS. Port 0 controls the 
batteries (charge, discharge, and on-line). Port 2 controls the power to the subsystems; this port also 
contains the current inhibit switch used while reading currents. Ports 1 and 3 control multiplexers on the 
EPS which are used to select voltage and current measurements. Port 4 is the Watchdog Timer reset 
switch. Port 5 is used to read back the direction of the current sensors (the only read port via the PCB on 
the EPS). Ports 6 and 7 are not allocated; however, Port 7 is selected when the Watchdog timer needs 
toggling (Port 4 written, and then Port 7 accessed in order for Watchdog timer to latch the update request). 
Ports 0, 1, 2, 3, and 5 are described in detail in Appendix E. 
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2. EPS Cell Voltage Multiplexing 


EPS voltage and current measurement signals are all multiplexed onto one analog signal and 
delivered to the LM12458 A/D converter on-board the System Controller. The following section describes 


the addressing needed to perform EPS voltage and current measurement selections. 


a. Low Battery Cell Voltage Selections 

The Low Battery Cell Voltage MUX is used to select certain battery cells for voltage 
measurements associated directly with the Low Cells (0 and 1). This MUX is also used to index into the 
Medium and High Cell Voltages MUXes. To select battery cells 0A, 1A, 0B, 1B for voltage 
measurements, only Port 3 needs to be used. Since Port 3 is used to index into the Medium Cell Voltage 


MUX, these control bits are zeroed when only selecting cells 0 and 1. 


b. Medium Battery Cell Voltage Selections 

The Medium Battery Cell Voltage MUX requires manipulating the Low Cell Voltage 
MUX as well as the Medium Cell Voltage MUX. Prior to selecting the Medium Battery Cell Voltage, the 
Low Battery Cell Voltage MUX must be set correctly. Since the control] of the Medium and Low Battery 
Voltage MUXes are controlled both with Port 3 of the EPS, all of the selection actions can take place in 
one write to Port 3. The four least significant bits (1111) set up the Low Cell MUX to allow Medium Cell 
MUxX selections to pass through. 


c. High Battery Cell Voltage Selections 

The High Battery Cell Voltage MUX selection method depends on the cell. Cells SA/B, 
6A/B, and 7A/B require the following selection method. First, select the High MUX input through the 
Low Cell MUX (Port 3 = 0000 1000). Furthermore, the Current Select must be kept disabled (Port 1: bit 0 
= (0). Then, via Port 2, make a selection. Cells 8A/B and 9A/B require the following selection method. 
First, select the High MUX input through the Low Cell MUX (Port 3 = 0000 1000). Furthermore, the 
Current Select must be kept disabled (Port 1: bit 0 = 0). 


3. EPS Cell Voltage and Current Multiplexing 


The eleven current sensors are used to read roll rate experiment currents and also the solar panel 
and battery currents. The Low Cell Voltage MUX selectors are used to index voltage measurement, as 
well as the current selectors. Prior to current selections, Port 3 should be set to allow current selections to 
be made; this is accomplished by setting Port 3 = 0000 1100 (for roll rate), Port 3 = 0000 1010 for batteries 
and solar panel bus. Then the current selection is made. After the address selections, the Spacecraft Power 
Current Inhibit control must be disabled (i.e. enabled) by setting Port 1, Bit 0 to 1. Then, the Spacecraft 
Power Current Strobe must be strobed from high to low to high (Port 1, Bit 1). Then a reading can be 
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made. Following the A/D reading, the Spacecraft Power Current Inhibit must be set again (Port 1, Bit 0 set 


to 0). Appendix E shows the configurations needed for current measurements. 


H. SERIAL COMMUNICATIONS 


1. Modem Control 

A System Controller operates the Modem using I/O commands issued from the CPU. The 
Modem has a set of registers within the PA-100 [Ref. 17] and a separate 8-bit latch. Furthermore, a SC has 
the ability to turn on and off the entire Modem board via the PPI control port C bit 0. Modem setup and 
control requires a set of registers within the PA-100 to be configured in a certain sequence. Furthermore, 
feedback from the PA-100 is also required. In order to simplify the programming interface to control and 
monitor the Modem board, two functions exist to assist high-level layers of software. A data structure can 
be created which contains a pair of data, an address and a value associated with that address. The address 
corresponds either to a register within the PA-100 or the 8-bit latch, and the value corresponds to the data 


to be placed at that address. Thus, tables are sent to the Modem board when a new configuration is 


desired. 


2. RF Control 


The RF unit [Ref. 36] is controlled via the PCB using one 8-bit latch. Logic within the RF unit 
along with settings made by a System Controller control the selection of a low noise amplifier (LNA), a 
high pass amplifier (HPA) and a corresponding power level, a local oscillator (LO), the power applied to 
the selected LNA and also HPA, and control of transmit and receive switches. A System Controller has 
primary and alternate components (LNA, HPA, LO) within the RF unit. The RF unit takes a System 
Controller’s preferences via PCB commands (Table 10) as well as which SC is active and enables the 


correct components. 












RF PCB Control Bit Name | Description 
Control Port Bit 


[PL________| Power level control (mast significant bit) 
[Po] Power level control (Ieast significant bit) 
LOPILOA 


FUL TX/Rx=——~—~™séY:« = Transit, 1 = Receive (Signal Path Relay) 
Se Ss a | 0 = Transmit, 1 = Receive (Antenna Relay) 


Table 10. RF Unit Control Port. 
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API function calls are provided for ease of programming as well as making the source code very 


explicit to understand regarding the references to the RF unit. The functions are shown in Table 11. 













Table 11. RF API function calls. 


3. SCC Drivers 


One master interrupt service routine (ISR) handles the input and output services of both Channel 
A (synchronous) and Channel B (asynchronous) of the Serial Communications Controller [Ref. 28]. 
Channel A I/O is handled with DMA, except the special conditions which cause an interrupt. However, all 
I/O for Channel B is handled within this service routine. Since the SCC has only one interrupt source into 
the CPU, all SCC interrupt conditions invoke this one ISR. All conditions are checked within this ISR and 


are handled on a priority basis. The condition checking repeats within the ISR until all SCC interrupt 


conditions have been serviced. An outline of the master SCC ISR is shown in Figure 20. 










Read character 
and place into 
incoming buffer. 





Increment 
buffer counter. 


Interru 
(RR3A = 0)? 


Figure 20. SCC Interrupt Service Routine Structure. 
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a. Asynchronous Services 

A variety of software routines allow control of Channel B of the SCC, providing an easy 
yet sophisticated interface with the asynchronous communications port. The core drivers that allow input 
and output to Channel B are serial_out() and serial_in(Q). These functions simply insert or remove 
characters into buffers that are handled by the interrupt service routine. At a higher-level, software 
routines allow command line input and C Standard Library like printf() capabilities for complex display 


output. 


b. Synchronous Services 

Synchronous data is received and transmitted in blocks as packets. All higher-level 
software modules ultimately want to send a packet of data or receive a packet of data. Since all 
synchronous I/O is handled with the DMA between the memory and SCC, packet send and receive requests 
require an initial DMA setup, and some follow up after the transaction. Since the satellite only works in a 
half-duplex mode, assumptions regarding the state of transmit and receive are made and simplify the 
design. When not transmitting, the SC places the SCC into a receive mode with the DMA already set up to 
transfer incoming data bytes. Thus, during this time, it is not necessary to set up anything regarding the 
transmission of data. When data is required to be sent out a packet is placed into a buffer and remains 
there until the receiver is finished with packet reception. Then, the transmitter is set up, including the 


DMA. During this time, it is not necessary to set up anything regarding the reception of data. 


Synchronous services are complicated by the fact that besides the SCC, communications 
through Channel A also rely on the PA-100 modem and the RF unit. Thus, the PA-100 and RF unit require 
some monitoring in case there is a failure. Failure may only be due to a functional mode of the hardware 
and not circuit failure. Thus, these units may need to be reset or programmed with different parameters. 


Furthermore, extended failure may require a different hardware configuration to be chosen. 


l. TELEMETRY 


1. Scheduling of the LM12H458 

Telemetry from sensors (voltages, currents, and temperatures) is routed onto the inputs of the A/D 
converter on the System Controller, the LM12H458 [Ref. 24]. An interrupt service routine (ISR) is 
responsible for completion of data conversion, and scheduling of another acquisition under the automated 
function of the A/D converter. Since the LM12H458 can be given a program which is a sequence of data 
acquisition steps which can be run independently of the CPU, the A/D converter is programmed to make 


several acquisitions across multiple input sensors without intervention of the CPU. 
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In order to simplify the software responsible for operating the A/D converter, a schedule was 
created that indicates for any sequence in the data acquisition, which sensor signals are to be accessed and 
converted. The entire data acquisition cycle was broken up into 42 periods, numbered 0 through 41. After 
the 41 period, all sensor data has been read and converted at least once. Since some data points need 
more frequent readings than others, certain sensors are read multiple times during the 42 periods. The 
sensors from the EPS require multiple readings per period. The CPU must store the converted values at the 
end of each Period and prepare the LM12H458 for the next Period before resuming other activities. 


Appendix F shows the schedule of A/D conversions. 


2. LM12H458 Setup and Interrupt Service Routines 


Three subroutines implement the software necessary for data acquisition. The first is an 
initialization routine which programs the LM12H458 into the desired mode, calibrates it, programs the first 


sequence of acquisition instructions, and finishes leaving the LM12H458 running independently. 


Another, the core of the acquisition, occurs within the Interrupt Service Routine for the 
LM12H458, diagrammed in Figure 21. At the end of each data acquisition Period, which can have up to 5 
converted samples or as few as one, this routine is invoked via a hardware interrupt. If necessary, current 
directions are read for the just completed acquisition. If temperature sensors are used for the following 
acquisition period, the TMUXes are programmed. Furthermore, the EPS is programmed to multiplex the 
soon to be read sensor. Finally, the LM12H4S58 instructions are programmed and the service routine is 
finished. After the completion of all 49 Periods, this ISR also sets a flag to notify other software tasks that 
a complete set of new data has been converted. Also, at the completion of the last Period, the LM12H458 
is instructed to complete a calibration, and thus control of the CPU is returned to other software tasks. The 


completion of the calibration causes another ISR to program the LM12H458 to begin again. 
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Main ("Pause") ISR 
for A/D (LM12H458) 


Stop the 
Sequencer. 


Battery 
Current Sensor 
Accessed? 














Sens Read A/D FIFO 
Direction. Store samples. 


Penod = 0. 


Indicate sensor 
Sweep is 
complete. 


Setup for ne 
readings. 


So 
Setup MUX 
Aand B, 






Current 
sensor to be 
read? 


um Curren 
Inhibit OFF. 


Figure 21. A/D Main ISR. 
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3. Data Gathering - Temperature Multiplexers 

All temperature signals sensed using thermistors (all temperature measurements except two IC 
temperature probes on the System Controller and Modem boards) are multiplexed onto the Temperature 
Analog Multiplexing units (TMUX) [Ref. 37]. These signals pass through an appropriate signal 
conditioning circuit and are then available to the LM12H1458 for analog-to-digital conversion. This 
conditioned analog signal is passed to the LM12H458, on-board a System Controller. All of the TMUX 


selections are controlled using the Peripheral Control Bus. 


TMUX control is handled by four address lines and four selector lines using the Peripheral 
Control Bus. All multiplexers are fed the same address lines. However, four separate selection lines 
provide the TMUX enabling to each individual TMUX. The following table indicates the assignments of 
the bits that describe the TMUX configuration. 












[Bits [Function SSCS 
[6 [Unused SOS~—S 
[5 | MUX 1 Select (subaddress) Channels 16-37 
[4 | MUX 0 Select (subaddress) Channels 0-15 


Table 12. TMUX Control. 


Temperature sensors are named TSx, where x is a number beginning with 0. Temperature sensors 
which deliver a signal to TMUXA are even numbers (including the beginning 0), and temperature sensors 
to TMUXB are odd numbers. Furthermore, all sensors are redundant, for every sensor providing a signal 
to TMUXA, another sensor exists to provide the same sensor location to TMUXB. The number system is 


such that if x is a sensor for TMUXA, x + / is the redundant sensor for TMUXB. 


4. Data Conversion 
Data conversion for voltages, currents, and temperatures are explained in this section. Note that V 
is an unsigned value from the A/D converter. And where appropriate, S/GN is either +1 or -1 and 


determined from reading the current direction sensor. 


a. Battery Current Conversion 


The current going into (positive) or leaving (negative) a battery is determined using 


Equation 4. 





I = 2*SIGN* ve 
4095 


5 2 25| = SIGN *(N * 0.002442 -5) (4) 
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b. Spacecraft Bus Current Conversion 
The calculation of the spacecraft bus current is identical to the conversion of the battery 


current except that there is no direction, and thus the use of S/GN is eliminated, Equation 5. 





ie ve : )-25 = N * 0.002442 —5 (5) 
4095 


c. Battery Voltage Conversions 

Battery voltage measurements are accumulated voltage readings across cells in series. 
Starting with cell 0 as the first cell in series, each successive cell has a voltage measurement across the 
entire series, and not the individual cell. Accumulated Cell Voltages require a conversion weight, W 


(Table 13), which depends on the cell. 











LA cece Tle al 


1 a a | 
ro [ 2.4262 «(2.4314 
a 
[ [Factor (W) | Factor (W) 


Table 13. Battery Voltage Conversions. 





First, the accumulated cell voltages are converted (Equation 6). These accumulated cell 
voltages are the steps of voltages measured across the entire cell series, starting with cell 0 as the base cell 


with direct reference to ground. 





Vy, = Nl 2 J+w = oooizi+N*w (6) 
4095 


Next, each individual cell voltage can be calculated by subtracting the cell’s accumulated 


voltage from the cell previous to it, with exception of the first cell, cell 0. This is shown in Equation 7. 


V(i)=V,)-V,(i-1), 15158 
V(0) =V ,(0) ”) 
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d. Thermistors 

An Omega 440048 thermistor’s [Ref. 38, p. D-4] temperature value is converted using a 
table lookup. This is because the conversion is based upon the mathematically intensive Equation 8. The 
table lookup performs a binary search where there are a maximum of seven compares needed for a lookup. 
The table is used by taking the value from the A/D converter and finding the closest match in the table. 
The position of the match in the table indicates the temperature of the sensor. Appendix G contains a 


complete discussion of the conversion process. 


I 
T =| ————___——_ |- 273115 
A+ B*in(R)+C *[in(R)] 
V 
R=— 
Ic 
where R is the resistance of the thermistor, (8) 


V is the voltage sensed across the thermistor, 


and Ic is the Calibration Current. A, B, and C are coefficients 


e 0 0 
choosen to best fit temperature values in the range from -0 Cto30 C. 


A = 9.306x10 -.B = 2218x10 *.C = 1.253x10 


e. Temperature Sensors (ICs) 
Conversion of the IC temperature sensors is straight-forward as shown by the 


relationship expressed in Equation 9. 


T =(N-05)*100 (9) 


5. Data Recording 

At regular intervals, preset to every minute but modifiable by command from the ground station, 
all of the sensor data and various software statistics are saved to the mass storage devices. The purpose of 
recording this data is two-fold. First, the system software uses this recorded data to make decisions, in 
particular when the satellite has a power reset, or a System Controller is turned off and its alternate turned 
on. When powered on, a System Controller attempts to find previously saved data in the mass storage 
which will describe the prior state of the satellite. In the case of the first time the satellite operates (i.e. 
after launch), the mass storage is completely initialized. The Battery Charge Monitor (discussed in the next 


chapter) relies on this recorded data to make intelligent decisions regarding the state of the batteries if 
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possible. The data is recorded so that it is accessible to the ground station for detailed analysis. An 
overview of the telemetry record contents is shown below in Table 14. A detailed description of the 


telemetry record is found in Appendix J, documented in the software source code. 












Temperatures Temperatures of modules, batteries, and solar panels 


Voltages (19 Voltages of battery cells and spacecraft bus. 


Time/Date | 1 _| Spacecraft time and date recorded in number of ticks (60 Hz). 


Hardware Configuration 
BCM 

[1 [ Number of EDAC softerrors. SSS 
[i | Number of superuser access atiemps that failed. 


Table 14. Telemetry Record Contents. 


? 
Currents Currents of batteries, spacecraft bus, solar panels 


EDAC Errors 
SU Fails 








J. MASS STORAGE INTERFACE 


A mass storage unit (MSU) provides four megabytes of Static RAM (SRAM) to serve as file 
storage for the Spacecraft Software. This unit is intended to save user messages (mailbox storage) and 


archived telemetry. In addition, half a megabyte of Flash storage is available for duplicating telemetry. 


1. Hardware Interface Via the PCB 


The MSU is a data storage device of both volatile and non-volatile solid state memory devices. 
The data address to be accessed is presented and the appropriate control (read or write) is indicated. Four 
and a half megabytes of random access storage are incorporated within the Mass Storage Unit. The 
Peripheral Control Bus is used to interface the Mass Storage Unit and the System Controller. A PPI is 
located at base address of the Mass Storage PCB address (see Table 15). Twenty-two bits of the PPI are 
used to latch an address. There is one read signal and one write signal, and one additional signal used to 
indicate if SRAM or Flash is to be accessed. Table 16 indicates addressing and control usage within the 


PPA: 


60 








PCB PCB Usage for Mass Storage Units 
S3-SO0 | Al-A0 


[| Mass StorageA——S~S 
[0 PPIPoRA 
1 PriPot BS 
[0 | Data (read and writey SS 
[Mass StorageB 
aie | 
0 
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Table 15. Mass Storage Unit: PCB Interface. 









PortC | D6 Select: 1= Flash, 0= SRAM 


Table 16. Mass Storage Unit: PPI Interface. 







For initialization, the PPI should be programmed as an output only device (Ports A, B, and C all 
8-bit outputs); this is accomplished by writing a 0x80 to the PPI Control register. Port C controls both the 
selection of either the Flash or the SRAM devices and the most-significant address bits of both device 
types. Since selected Flash devices draw less current than selected SRAM devices it is best to select the 
Flash devices when a Mass Storage board is powered on (but not being read or written to). Furthermore, 
A18 and A19 select only high address bits of the SRAM; selecting a Flash device in this address range 
causes a non-existent Flash device to be selected, drawing even less power. Therefore, a powered-on Mass 


Storage board, when not performing reading or writing, should have its Port C set to 0x48. 


2. Software Interface 

Device driver software allows the functions of formatting (clearing memory in preparation of 
writing data), writing to, and reading from the Mass Storage units. Although the entire memory space of 
one mass storage can be addressed as a continuous address space, due to logical use of the memory, the 


memory space is visualized and thus segmented into two memory types: the volatile 4 Mbyte SRAM, and 


the non-volatile % Mbyte Flash. 
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a. Reading and Writing Requirements 

Reading from either type of memory is straight-forward. An address is programmed into 
the PPI on the Mass Storage board, and then a PCB read retrieves the value of the cell pointed to. Writing 
to the SRAM is similar to reading, except a PCB write is issued. However, writing (and erasing) the Flash 
involves writing specific address and data sequences into the command register of the Flash device 
[Ref. 39] defines these register command sequences which allow writing, erasing, and checking 


manufacturer and device type codes. 


Command First Second Third Fourth - Fifth Sixth 
are in Hex. 
Sean] 5555_| AA | 2AAA | 55__| 5555_[90 [01 |Code | SS 


Data 


Erase _[ 5555_[ AA_| 2AAA [55 | 5555 | 80 | 5555 | AA | 2AAA] 55 1 5555 [10 _ 


Table 17. Mass Storage Unit: Flash Commands. 












b. API Functions 

API function calls for each memory type are provided for ease of programming as well 
as making the source code very explicit to understand regarding the references to the Mass Storage 
memories. These functions are shown in Table 18. For redundancy purposes, the ROM Boot Loader 
software writes all recorded data to each Mass Storage unit and to both memory types. Thus, the data can 
be quadruplicated. All records of data written to a Mass Storage device use a Cyclic Redundancy Check 
(CRC) [Ref. 40] for read-back verification. The CCITT CRC-16 will detect all single-bit, dual-bit, odd 
numbered, and bursts of fewer than 17 bits wide types of errors. Detection of other errors is about 
99.997%. This is the same CRC algorithm as used within the SCC except that the seed CRC is 0 (instead 
of OxFFFF). 












Function Name 
msu_erase_ flash) 
msu._read_ flash) 
msu_write_flashQ 
msu_scan_flash() 
msa_set_addr( 
msu_ erase sram() Erase entire SRAM (sets cells to OxFF). 


Read specified number of bytes from a specified address in SRAM. 
Write a specified number of bytes from a specified address in SRAM. 


Table 18. Mass Storage Unit: API Functions. 
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c. Timing Requirements 

Reading and writing to a Mass Storage unit takes a considerable amount of time 
especially writing to the Flash memories. Therefore, it is critical that the amount of time required to 
accomplish such operations 1s determined and taken into consideration when designing and writing the 
device drivers as well as the high-level code that uses the Mass Storage. In general, reading and writing to 
the SRAM, and reading from the Flash take a similar amount of time. However, writing to Flash is nearly 
eight times slower. Since data may be read and written in blocks, a general formula was determined which 
gives a per byte time requirement. Reading and writing data in blocks is preferred (rather than single byte 
function calls) because the overhead of multiple function calls is reduced, and address incrementing 
techniques can be exploited (e.g. only updating the address digits that change). Table 19 shows the formula 
and the transfer time for 256 byte blocks. 


Clocks = 1207 + n*(862) + (n-1)*(31) + 40 
Clocks = 1207 + n*(834) + (n-1)*(31) + 40 


Table 19. Mass Storage Unit: Timing Of Operations. 







This concludes the presentation of the System Controller software device drivers. These 
drivers are necessary to provide simple and direct control of the hardware peripherals (electronics of the 
System Controller as well as the electronic modules of the spacecraft). However, the goal of the software 
developed for PANSAT is to provide a system which orchestrates all of the hardware of the spacecraft. 
This software is referred to as the System Controller high-level software and is presented in the next 


chapter. 
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Vi. SYSTEM CONTROLLER HIGH-LEVEL SOFTWARE 


A. DESCRIPTION 


Upon completion of the hardware initialization and the creation of a runtime environment suitable 
for higher-level layers of software, software progresses to the central loop contained in the module main.c. 
Operation then consists of monitoring and charging the batteries while establishing primitive 
communication with the PANSAT Ground Station at NPS to begin the upload of the Kernel and the PHT 
loader. Thereafter, a higher level protocol will upload BAX, the primitive Telemetry collector, and an 
AX.25-aware loader. Then, using AX.25, the FTLO protocol, the File System, and Bulletin Board services 


software are uploaded. Finally, the spacecraft is ready for general use. 


B. SERIAL COMMUNICATIONS - Serial Test Port Interface 


The Serial Test Port Interface (STPI) is an asynchronous serial communication interface that 
exchanges messages between the System Controller and an external computer acting as a Data Terminal 
Equipment (DTE). The DTE is a dumb-terminal which is capable of sending data and displaying messages 
sent from the SC. A large set of commands is implemented to operate and test the spacecraft via the STPI. 
The command menu is shown below in Table 20. Responses from the commands (sent by the SC) vary 


depending on the command; however, all responses print out as readable messages on the terminal. 
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Input byte port-16 
Input word port-16 
Output byte port-16 
Output word port-16 data-16 
Read byte offset-16 
offset-16__| data-16 
Dump paragraph offset-16 | 
PCB read |select_ | subaddr_ | 
data-8 
A/D ISR control ci 
m Get esate raspy ga 
Rceninem ses ee e 
time: s 
bem: p BCM: on/off 
BCM: configure config data... 
BCM: status ee eee 


ia 

| 

a 

— 

8 2 a 
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C. BATTERY CHARGE MONITOR 


Two battery packs are within the spacecraft [Ref. 41]. Each battery pack consists of nine nickel- 
cadmium cells with a standard capacity of approximately 4.4 AmpHours. The batteries are for eclipse 
power and power regulation and conditioning circuitry while in sun-soak. The power system must be able 
to switch from external solar power to internal battery power without major power spikes or fluctuations. 
The EPS relies on the System Controller to activate switches and to determine charge levels of the 
batteries. Both batteries will be depleted beyond the capability of operation at launch due to the storage 
time between integration and ejection from the Shuttle. A trickle charge circuit provides battery charging 
at the beginning-of-life while the spacecraft operates in the sunlight. This will allow a low power mode of 
operation during eclipse in the very early stage of the mission until the batteries are sufficiently charged. 
During spacecraft operation the battery control algorithm will use temperature, current, and voltage 
measurements to determine the state-of-health of the two batteries. The state-of-health determines which 
battery is on line (providing buffered power to the spacecraft bus during a sun-soak and full power while in 


eclipse), and which battery is being charged. 


The battery charge monitor (BCM) is an algorithm that controls the charge and discharge cycles 
of both batteries. It controls and monitors the charge and discharge cycles using overcharge times, cell 
temperature profiles, cell voltages and charge/discharge currents. Depending on the battery status, a Target 
battery is selected to be charged. Also, once the satellite is launched into space, the power provided from 
the solar panels must be distributed and regulated. While the satellite is in eclipse, power from the batteries 
is necessary to keep PANSAT operational. The battery has to provide additional power during sunlight in 
the event that the solar panel output is insufficient, such as during transmission. The Online battery 
provides this power. Furthermore, the algorithm indicates the available power for operations, depending 
on the charge state of the batteries: low, stand-by, or normal power operation modes. According to the 


mode, certain subsystems will be turned off to guarantee operation. 


The BCM also checks for corrupt data which is stored to review the charge state history of the 
batteries. When such an error occurs, the algorithm will set the satellite to a default condition and restart 
the battery charging based on measurements only, beginning new charge state history data. The algorithm 
also detects either sunlight or eclipse. This is necessary to activate certain switch configurations to allow 


continuous operation when the satellite is going through a transition from sunlight to eclipse or vice versa. 


1. BCM Top Level 


The BCM is essentially a large series of questions which are asked on a continual and frequent 
basis. The questions consider recent measurements (temperature, current, and voltage) of the batteries, past 
measurements, and whether or not the spacecraft is in eclipse. This series of questions determines how the 


switches within the EPS are turned on and off in order to maintain correct and efficient use of the batteries. 
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These switches control which battery is on line, charging (trickle and normal), and discharging. A top- 


down view of the algorithm is shown, starting with the main structure shown in Figure 22. 


Battery Control Monitor 
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Figure 22. Battery Control Algorithm Top Level. 
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A handful of variables describe the state of the BCM, such as Capacity, Count, Online, Target, 
Mode, and cell voltage maximums. Capacity indicates how much charge is presently in a battery and is 
expressed in AmpHours. The default Capacity for each battery is 0 AmpHours (empty). Count indicates 
how many times a battery has been recharged as opposed to overcharge (discussed later). Initially, a value 
of -2 (UNKNOWN) is assigned which means the battery needs immediate overcharging. Target indicates 
which battery is currently being charged. To begin, the Target is None (neither battery since it must be 
decided). Mode depends on the charge state of the batteries. Initially, Mode is Low (meaning satellite 
operations should consume the least amount of power), and progresses to Standby, and Normal. Cell 
Voltage maximums keep track of the highest voltage each cell in a battery reaches during a charge cycle 


(while it is the Target). 


Other useful parameters are depth of discharge (DOD), temperature references, an overcharge 
voltage threshold, and timers. A previously charged battery which is online and losing charge capacity 
reaches its depth of discharge (DOD) when it has 60% of its full capacity. This is a condition that should 
trigger the battery to no longer be used for discharging and to begin a new charge cycle as soon as possible. 
Temperature references note the temperature of batteries when a battery is first placed on line or started 
charging. Such temperature references are used to monitor rapid temperature increases which can signify a 
battery reaching overcharge; thus, this is a safety mechanism. An overcharge voltage threshold is a voltage 
that is temperature dependent and indicates when a battery is approaching an overcharge condition. This 
condition triggers the starting of timers which further monitor the amount of charge a target battery 


receives before completing a charge cycle. 


2. Battery Use Eligibility and Preference 

AS a necessary requirement for a battery to be eligible to be Online or the Target, the conditions of 
the batteries are examined as shown in Figure 23. There are three topics of interest which can persuade 
whether or not a battery is suitable for use. First, if a battery is already being charged (is the Target) and it 
has a cell voltage below 0.9 V, then that battery should not be used. It should be considered defective. 
Second (and this applies potentially to both batteries), if a battery is not currently being charged and has 
already been charged then its cells must have a minimum cell voltage of 1.1 V. Otherwise, that battery 
should not be used. It should be considered defective. If both batteries are still eligible for operation, then 
the temperatures of the batteries are examined (Table 21); that is, both batteries are still eligible for use. If 
the temperatures (an average temperature of all cells) of both batteries are between 0°C and 35°C, then 
both batteries are eligible for use and there is no preference. Any preference given will be a function of the 
charge state of the batteries (discussed later). However, if the temperatures are out of the range just 


described, then one of the batteries will be preferred over the other. 
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Figure 23. Battery Preference. 
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Search begins by using lowest temperatures in this table and working towards higher temperatures. 
Battery A 


Battery B No Preference B 
A Use Cooler 
A A Use Cooler 





Table 21. Battery Preference Based On Temperatures. 


3. Determine Online Battery 

In order to determine which of the batteries should be online, many questions are answered 
(Figure 24). First, a battery preference (as described above) is considered. If no such preference exists, 
then the following is considered. If there is not already an online battery then the battery with the most 
capacity (stored charge) is chosen. Otherwise, if a battery is already designated as online, it remains online 
as long as its voltage has not dropped below a voltage threshold of 1.1 V and its capacity is above its DOD. 
If the capacity of the online battery is below its DOD and if the other battery is not being charged, then the 
other battery becomes the online battery allowing the depleted battery to begin a new charge cycle. 
However, if the online battery must remain online because the other battery is being charged (disrupting 
charge cycles is not preferred) then this condition is flagged and power consumption within the spacecraft 


must be reduced. 
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Figure 24. Battery Online. 
W2. 


4. Determine Target Battery 

During the next portion of questioning (Figure 25), if applicable, a battery is chosen to become the 
Target and will begin being charged. Again battery preferences take precedence in the decision as to 
which battery should be the Target. If no such preference exists, and there is not already a Target, then the 
battery that is below its depth of discharge (DOD) is chosen. If both batteries are below their DODs, then 
the battery that has the lowest capacity is chosen. Otherwise, if both batteries are charged above their 
DOD, then no battery becomes the Target. The possibility of no battery being the Target at first seems 
inappropriate. However, the batteries will have the longest life if they are only charged after sufficiently 


being discharged, i.e. reaching an appropriate depth of discharge. 
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Figure 25. Determine Target Battery. 
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5. Charging Methods 


Figure 26 shows the charging overview questions which occur prior to attempting to charge a 
battery. First, the satellite must not be in eclipse in order to allow charging. Also, there must be a Target. 
Finally, if charging is appropriate, one of two methods are used, depending on the charge state of the 


Target battery. The two methods are overcharge and recharge. 
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Figure 26. Battery Charge. 


a. Overcharge 

A Target battery is charged using the overcharge method when its charge state is 
unknown or it has already been recharged a maximum allowable number of times. The overcharge 
method, shown in Figure 27, keeps the Target charged until a voltage threshold has been reached. This 
voltage threshold depends on the temperature of the battery. Once this threshold has been reached, a timer 
is set. Typical overcharging of a battery is based on a time which depends on the allowable power mode of 
the spacecraft (Low, Standby, and Normal). By charging a set amount of time, a battery can be guaranteed 
to reach beyond its 100% capacity (regarding the amount of charge placed into the battery); and thus, at the 


completion of this overcharge the battery can be considered 100% full, containing 100% of its capacity. 
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Figure 27. Battery Overcharge. 


b. Recharge 


A Target battery 1s charged using the recharge method when its charge state is known 
and it has not been recharged a maximum allowable number of times. The recharge method, shown in 
Figure 28, keeps the Target charged until its full capacity has been reached. This is performed using 


current integration in order to monitor the amount of current that enters the battery. 
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Figure 28. Battery Recharge. 


6. Battery Mode 


The operational mode of PANSAT depends on the charge state of the batteries which is 
maintained by the BCM. The operational mode indicates how much known stored energy is in the 


batteries at any time, and thus dictates how much power should be consumed by spacecraft operations. 


Figure 29 shows the decisions made to determine the mode. 
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Figure 29. Battery Mode. 
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D. GROUND STATION COMMAND INTERFACE 
After deployment, PANSAT only accepts requests received by RF transmissions. The ROM Boot 


Loader understands a very limited set of commands. The goal of the Boot Loader is to load the secondary 
loader while maintaining the spacecraft subsystems (in particular the batteries) in the most simple manner 
possible. Commands are sent from the NPS ground station as packets of data which are requests to the 
satellite to perform some action. The satellite responds to all commands with an acknowledgement packet 
which may contain extra information depending on the command sent. Table 22 shows the commands 
accepted during this initial stage of operation. The command encoding was designed so that each 
command has 4 bit differences between any other command. Even though the packets are CRC encoded in 
order to determine if there are bit errors, it is easy to also apply an encoding mechanism onto the 


commands to provide further error prevention. 
















Get Parameters OxAA Get parameters of A/D, BCM, hardware scenarios, RAM 
wash, time. 


Load a block of data into a specific area of RAM. 
Send Address/Data Map for future Load commands. 
Stop the System Controller, forcing alternate to Reset. 


Set Parameters 0x99 Set parameters of A/D, BCM, hardware scenarios, RAM 
wash, time. 


[StatusLog Clear [OxOF [SSCS 


Table 22. ROM Boot Loader Commands. 


1. Command Packet Protocol 

The data field within a command packet is limited to 262 bytes of data, regardless of the 
command. This odd number was chosen to allow a paragraph aligned, 256 byte block of data to be sent 
with the Load command to upload code and data images. The bytes in the data field are numbered 0 


through 261. The data field format depends on the command. 


Byte([0] Byte[1] - Byte[261] 
Data (relating to the command) 


Table 23. Command Packet Data Field. 


2: Commands 


a. Confirm 
The Confirm command is in response to the spacecraft receiving a command that 


requires confirmation, in which the spacecraft then sends an acknowledgment that requires confirmation. 


b. Control 
The Control command contains another command within the request packet that specifies 
some action the satellite should perform and return any data (or at least an acknowledge of having 


completed the action) back to the ground station. Permissible commands are shown in Table 20. 


c. Execute 

The Execute command also contains an absolute memory address which is an instruction 
pointer which contains the address of uploaded software in which transfer of control will be given. The 
spacecraft will send an acknowledgement before it executes, requiring the confirm command to be sent 


from the ground station. 


d, Get Parameters 
This command requests the spacecraft to send down all the parameters that describe and 
regulate the activities of the autonomous control algorithms, e.g. RF, Modem configuration, A/D gather 


and record rates, RAM wash rate, and Battery Control Monitor configuration. 


e. Load 

The Load command contains an address followed by a block of data. The address is the 
beginning address where the data should be stored. Thus, the first data byte will be stored at the address, 
the next data byte will be stored at the next larger address, etc. This command allows an arbitrary memory 
image to be transferred from the NPS ground station to PANSAT. Normally, this command is used to 


upload an image of the secondary loader which will take over the work of the Boot Loader. 


The Load command uploads data pages which are up to 256 bytes in size. The absolute 
address at which the data is to be loaded is given. Upon successfully receiving a page without errors and 
storing the page into RAM without errors, the page address is recorded in a list. This list of successful 


loads is used later when verify commands are given. 


J; Map 


The Map command is used prior to a sequence of Load commands in order to let the 
spacecraft know about the number, location, and size of data blocks. All Map commands are 


acknowledged by PANSAT immediately following successful reception. If a negative acknowledgement is 
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sent (or if no acknowledgement is sent), the Map command needs repeating. Multiple Map commands 


may be necessary if a large number of Loads follow. 


g. Reset 

The Reset command forces the System Controller to enter a halt state. This will cause 
the SC to fail to update the watchdog timer and thereby causing it to be powered down by the EPS. This 
command causes the spacecraft to first send an acknowledgement of receiving the command; the confirm 


command must then be sent to perform the reset. 


h. Set Parameters 

This command indicates to the spacecraft that there are new parameters to set within the 
spacecraft which affect the activities of the autonomous control algorithms, e.g. RF, Modem configuration, 
A/D gather and record rates, RAM wash rate, and Battery Control Monitor configuration. This command 
causes the spacecraft to first send an acknowledgement of receiving the command; the confirm command 


must then be sent to perform the parameter setting. 


1 Status 
The Status command requests the satellite to send a complete state-of-health packet back 
to NPS. This information contains sensor data acquired by the A/D acquisition system as well as various 


software variables and parameters which describe the operational mode of PANSAT. 


j. Status Log Clear 
This command requests the spacecraft to clear all of the recorded status records on the 
mass storage. This command causes the spacecraft to first send an acknowledgement of receiving the 


command; the confirm command must then be sent to perform the clearing of records. 


k. Status Log Read 
This command tells the spacecraft to send down all of the recorded status records that 


have been saved to the mass storage. 


l. Verify 

The Verify command is accompanied by an absolute memory address, which specifies a 
block of data as used in the load command. Upon receipt of this command, PANSAT will check its list of 
receive data blocks from earlier Map and Load commands. A response is returned, in the form of a data 


block starting address, indicating which data blocks failed and need repeat transmission. 
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m. Unknown 
In the event that the spacecraft actually receives an incoming packet in the form of a 
command but is unable to make exact sense of the command, this response is sent back to the NPS ground 


station, explaining that no action occurred. 


3. Loading Sequence 


The loading of blocks of data from the ground station to the spacecraft is a complex sequence of 
operations, which is best viewed from a diagram. The sequence, Figure 30, is from the point of view of the 
ground station, sending blocks of data to the spacecraft. To begin, maps are built that describe all of the 
data blocks to be sent up; then the maps are sent using the Map command. Each Map command is 
acknowledged by the spacecraft before the next one is sent. Next, the blocks are prepared and, using the 
Load command, each block is sent up without any acknowledgement from the spacecraft. Finally, 
verifications are prepared. For each Verify command sent, the spacecraft is to send down an immediate 
response. The response may be in the form of multiple packets (if there were many Load errors). 
Following this response from the spacecraft, for each Load error identified, the block is prepared and resent 
to the spacecraft. The verification process is complete when the spacecraft returns a response indicating 


that there are no known Load errors. 
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Figure 30. Block Loading Sequence. 
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E. SCENARIO CHECKS 


On a regular basis during the execution of the Boot Loader, hardware and software sensors are 
used to determine whether or not various hardware subsystems of PANSAT are functioning correctly. 
Many of these checks are directly related to the communication systems. Since a lack of communication 
from NPS most likely indicates that hardware on board the satellite is not functioning correctly or is not in 
the mode presumed, symptoms that show this type of behavior are monitored. In the event that such a 
symptom is found, the spacecraft either programs the hardware to another configuration or uses an entirely 
different piece of hardware. Figure 31 shows a flow diagram indicating the various symptoms which are 


monitored and the type of cure used. 
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Figure 31. Scenario Check. 
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Vil. RESULTS, RECOMMENDATIONS, AND 
CONCLUSION 


A. RESULTS 


1. Printed Circuit Board 


The System Controller described in this thesis was fabricated on a printed circuit board. The 
layout of the board was performed by David Rigmaiden of the Space Systems Academic Group with the 
assistance of the author and the schematics generated with this document. Accel Technology’s 
P-CAD/Tango software was used as the layout tool. The result is a six layer board suitable for space flight. 


Details of the layout and board manufacturing are beyond the scope of this document. 


The printed circuit board was component stuffed by Rigmaiden and was tested by the author. 
The testing involved the verification of each circuit element on the PCB. Appropriate voltage levels were 
measured and were in accordance with expected values. Higher-level testing was accomplished by means 
of software control and reading back of data if possible. Various voltage meters, oscilliscopes, and an in- 
circuit emulator (ICE) connected to a general purpose computer were used to determine that the system 


was operating properly. 


2. Use of In-Circuit Emulator 

The Microtek MICE-III ICE was used to emulate the M80C186XL during initial tests. The 
microprocessor was removed from the printed circuit board, and the in-circuit emulator connected to the 
CPU’s socket. This setup is shown in Figure 32. The emulator provided a means to run a program in 
emulation RAM and emulation ROM; later, the actual RAM and ROM were tested by placing these 
components onto the actual printed circuit board. The emulator allows rapid modification of the test 
programs.-without the requirement to re-program the system EPROM. The emulator also provides an 
interface that allows single stepping through test programs at the machine level or at a higher level (e.g. C 
program statements). Furthermore, sophisticated breakpoints based on hardware or software conditions are 


programmable. 
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Figure 32. In-Circuit Emulator. 


The emulator exhibited unusual behavior during testing with programmed ROMs. The emulator 
was unable to drive the memory system with correct voltage levels; and thus, the ROMs on the printed 
circuit board were not correctly stimulated and did not operate. This was of little consequence to 
development however, since ROMs are needed only after significant testing and development has occurred. 


This unusual behavior is attributed to the various families of interface logic that differ between the ICE and 
the board. 


3. Software 


Device drivers were used to test the hardware peripherals of the System Controller as well as the 
electronics of the satellite subsystems. Device drivers were tested first individually while observing that 
the hardware was driven as desired. Next, device drivers were tested while operating together as multiple 
interrrupt service routines while noting that the hardware was driven as desired. Higher-level software 
routines were tested using the same methods as described for the device drivers. However, higher-level 
software tests ran autonomously, logging data to a general purpose computer which could be examined 


during and after the tests to ensure correctness of operation. 
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4. Testing 


Tests were performed on the fabricated System Controller to evaluate the operation of the 
hardware as well as verify the software that runs on the hardware. The results were all positive. Appendix 


K lists the tests performed during different stages of the System Controller construction. 


B. RECOMMENDATIONS 


The design of the System Controller glue-logic can be replaced with a programmable logic 
device, such as a programmable gate array (PGA). This would reduce PCB area and power consumption. 
The Space Systems Academic Group needs to investigate the acquisition of tools to simulate and test as 


well as program such devices. 


An additional design change would be to not only incorporate the glue logic, but also the EDAC 
controller and memory buffers into the same PGA. This would further reduce power consumption and 
PCB area. Such a controller could use additional M80C186 status bits (S2 - SO). These status bits, along 
with the Bus High Enable and AO signals are available turing the first half of the first T state of the 
microprocessor. These signals can identify if word write operations are about to occur in which the “read 
and correct” can be eliminated and the associated error flags may also be eliminated. This would also 


reduce power consumption since the RAM would be accessed less. 


The peripheral control bus (PCB) of the spacecraft requires too much supervision by the CPU in 
order to be effective for a data bus that requires higher data transfer rates. A simple controller could be 
designed that accesses a small FIFO memory which stores subsystem address, sub-addresses, and data (for 
a PCB write operation). The CPU could quickly add elements to the FIFO and let the controller 
independently handle all of the PPI transactions. Another incoming FIFO would be used to store data read 


from the PCB; it would be accessed by the CPU to gather incoming data. 


C. CONCLUSION 


The System Controller hardware and embedded software described in this thesis provide 
PANSAT with a reliable digital computer suitable for use in the LEO environment. The system is capable 
of autonomously controlling the spacecraft after launch and reset conditions. The system meets the design 


requirements by using a small number of readily available, reasonably priced components. 
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APPENDIX A. HARDWARE SCHEMATICS 


This appendix contains the detailed schematics for the System Controller hardware. The 


following drawings are included: 












Description 
System Controller - CPU and Data/Address Buffers 
System Controller - Memory 
System Controller - A/D and SCC 
System Controller - PCB, Power Detect, and Power Supply 
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Figure 33. System Controller Schematic 1. 
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Figure 34. System Controller Schematic 2. 
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System Controller Schematic 3. 


Figure 35. 
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Figure 36. System Controller Schematic 4. 
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APPENDIX B. SYSTEM CONTROLLER CONNECTOR 
PIN-OUTS 


This appendix contains the pin-outs for all of the connectors of a System Controller. The 
connectors are the 9-pin analog input signals, the 9-pin RS-232 serial test port interface, the 25-pin 


Peripheral Control Bus, and the 37-pin Modem interface. 


i CA 
14 vor 
E 
= 
3 +. 


PCB Read 
WR | PCB Write 
Sub-address Bit 1 


Sub-address Bit 0 
System Select Bit 3 


Table 24. Peripheral Control Bus Connector. 





Pin Number | Name 
















- 


PPE 
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Pin Number _| Name 
IOA6 Address Bit 6 


Address Bit 2 


GND 
i0D3 


Address Bit 4 





12 Power To Buffers 
3 


14 
15 


MIXDATA 
MRXDATA 
MODEM_TEMP 


LATCH Latch Chip Select 


M 


] 


21 





Wp Nd a) ~~] 
0/9] 9] 5] a} c, aie & 0/9/ 9) 912|/ S| 9 
Tel i Wl 
© 


[26~*({10D6——S~ ata BE 
joD4 


[0D2 
[39—~*«dIODO——S~S~di at BO 


IOWR 
TXCLK 


35 


= 


RXCLK Modem RX Clock 


2 La} Gol Go 


j Switched +5 V 
37 Switched +5 V 


Table 25. Modem Connector. 
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ss 7 
=. 
=a 












Table 26. Analog Signals Connector. 


ame [Function | Direction 
[Receive Data «fin 
Data Terminal Ready [In 
[Ground] 


Data Set Ready Ou 
Ready To Send 


Clear To Send 
Ring Indicator 





Table 27. RS-232 Serial Port Connector. 
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APPENDIX C. CIRCUIT BOARD BILL OF MATERIALS 


Type Pattern Value Designators 

CAPO805 CAPO805 aOR EF CLO LOO Crew 
C102. Ci03 
C104 C105 


C106 C15 C18 
G55 C70sers 
G72 C7sucra 
C75 C76 Gre 
@7e0c79 Eso 
C81 C82 C83 
C84 C85 C86 
C87 c8s c89 
C90 C91 C92 
C93 C94 C95 
C96 C97 C98 
c99 
330pF eri 


CAP1206 CAP1206 Lure CLOT. Clos 
CUOS eels “Cl 7 
C2 4e2 i C23 
C26 C275eZs 
C3 (C32 G36 
C34 C35 €3%6 
C37 C38 G38 
C4 C40 C41 
C42 C43 C44 
C45 C46 C47 
C48 C49 C5 
CS0=e5iye52 
C53 C54 €ss 
CS56eC5 7 7C5e 
C59 Ce Cae 
C6l €627¢645 
C64 C65 C66 
C67 C68 C7 es 


Crs 2 CTye2 2sul 3 
DB25RM DB25RM BDEZ5MS 0005-0 J2 
DB37F DB37F HDE3 7F320005—0 MJ 
DBYRF DBIRF HDESESO00S=-0 vol 
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DB9RM 


54HCO04 


54HCO08 


S4HErZ5 


54HC32 


54HC74 


DG411 


54HC245 


54HC573 


54HC574 


Z27¢256-120 


1N751 


LM50 


80C186XL 


ACS630MS 


PCAP3528 


PCAP6032 


PCAP7343 


CrIxX3se2 


CEA S0=2 


AM85C30 


IS82C55A 


LM12H458 


MSM8256 


DB9RM 


DIP14 


DIP14 


DIP14 


DIP14 


DIP14 


DIP16 


DIP20 


DIP20 


DIP20 


DIP28 


DO-.s5 


LM5S0O 


P186XL 


P630 


PCAP3528 


PCAP6032 


PCAP7343 


PCTXFORM 


PCTXFORM 


PPLC44 


PPLC44 


PPLC44 


PSRAM 


HDC9M5000S-0 
54AC04 
54HC04 
54AC08 
54HCO8 
54HC125 


54AC32 
54HC32 


54AC74 
DG411 


54AC245 
54HC245 


54AC573 


54HC573 


54AC574 


{Value } 


LM50 


2, 20F 
LOUrE 


100uF 


33uH 


50uH 
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J18 

Urs 

w2Z5 

Ul Uil2 Uses 
Uie Uss 

U2 


U34 U4 
Us2z. U3 7 


W259 


W27 


U38 U39 U8 
UDO U22-0z23 


U40 U41 


Ua > U20 U2 


OF 


U42 


U36 U43 


D3 D4 D5 


U3 


US 


U26 


Gil Cis 


CiUro e200 €22 


ClZz7Cl16 E19 
C8 


L2 


Ll 


U16 


U14 


Ull1 


U30 U31 U44 


MAX744A 


MAX211E 


RES1206 


MBRS140T3 


MBRS340T3 


WES 201.3 


Tepe Zz 12 


XTAL-OSC 


PWSO16 


PWS028 


RES1206 


SMB 


SMC 


SO8 


rO-99 


XTAL-OSC 


HEX 


rZ0 


147K 


aK 


1M 


Ae OK 


Sik 


5K 


MBRS140T3 


MBRS340T3 


TPS2013 


LeLSZu2Z 


14.7456MHz 


99 


aks 


a7 


R1 R2 R3 R4 
RS R6 R7 KS 


R22 R23 R24 
R25 


R10 


Ra S. RPGy Ra 


Raz 


R11 


R14 


Fel see ee eke 


D1 


D2 


U6 


U24 


Ug 





APPENDIX D. PERIPHERAL CONTROL BUS 
PROGRAMMABLE PERIPHERAL INTERFACE PORT 
CONFIGURATION 


This appendix contains a detailed description of the programmable peripheral interface (PPI - 


8255) that is used to control the peripheral control bus of the spacecraft. 


ub-address 0 





Table 28. Port B Assignments for PPI (Address and Read/Write Control). 












Table 29. PPI Port Usage. 










[Function SSCS 
[6 [Handshake SSS 
[0 | Modem Power (active LOW) 












Table 30. Port C Assignments for PPI (Handshaking and Control). 
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APPENDIX E. ELECTRICAL POWER SYSTEM PORT 
CONFIGURATION 


This appendix contains a detailed description of the Electrical Power System (EPS) ports. 


[epi rpsa Suh shar pon] BG) Conia 
/O = ~—~—«| 7_~—‘| Battery A Charge (/ =enable) 

| sd 6 ‘| Battery A Discharge (/ = enable) 

he oe 
[a attery-A Trekde Charge (= enable) 
a. ee 
a com 
ie ses 
a 











Mass Storage A Power (/ = enable) 
Temperature MUX A Power (/ = enable) 
ae 


Battery A Heater (/ = enable) 









Table 31. EPS Port 0. 






Subaddress 





Sih Cinta 
ri____|7__| Low Cell Voltage MUX Select? 
[6 | Low Cell Voltage MUX Select 
[5 [ Low Cell Voltage MUX Select 
[_____ [4 [Tow Gell Voltage Enable (7 = enable) 
as 
oe 
a 









[| Medium Cell MUX Select0——S 
[fo] Medium Cell Voltage Enable (I = enable) 


Table 32. EPS Control Port 1. 








ro ii hi 
il cage ag 
Seid Battery BHeater(7 =enabley 
__. | -  oe ee ee S  _SS 
P| CdS 4 | Temperature MUX B Power (J = enable) 
hm ed 
pT 2 Antenna Release (/ =enabley 
i | Ss A] Solar Panel Current Inhibit (0 = inhibit, 1 = enable) 

Po | —SC«dL {Solar Panel Current Strobe 


Table 33. EPS Control Port 2. 
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[Port [Address | Subadaress | Bit | Contents 
Pons [8 [3 | 7 | Current Select, of High Cell Voltage Select’ 
[|__|] 6 Current Select, or High Cell Voltage Select? 
[FT Carrent Setect, or High Cell Voltage Select 1 
FF rent Select, or High Cell Voltage Select 0 
Po fT 8] High Cell Voltage MUX Select 2 
PTT 2 | High Cell Voltage MUX Select | 

TF igh Cel Vottage MUX Select 
PUTT | High Cell Voltage Enable (7 = enable) 





Table 34. EPS Control Port 2. 








Port 


Subaddress 





hie —-- —-- 
Ce 
<<. - 
a 
ia 
amused ——SOSOSOSOSCSCSC~S 
oe 
—— 
a 





| 1 | Battery A Current Sense (0 = discharging) 
/Q | Battery B Current Sense (0 = discharging) 


Table 35. Read-back Port 5. 





U 
© 

+ 
Wr 





[Address | Subaddress [Bit [Contents SSS 
[6 | Battery B Discharge (J = enable) 
ri [umsed SSS 
[0 [umsed SSCS 


Table 36. EPS Control Port 6. 


6 





| Port _| 
=a 
i. Sal 
: = 
Lain lll 
Ln 
| 
a 





Table 37. EPS Low Cell Voltage Selections. 
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3B 
4B 





1110 1111 [OxEF] 
(3BSsS*S:«d1001.:'1111 [Ox9F] 
4B —s«{:«*d1:i00.:111111 [OxDF] 


Table 38. EPS Medium Cell Voltage Selections. 










Battery Cell | MUX Select Control (Port 2) 
bo outiny [0xA0] 
/6A ———s: 1110 0000 [0xE0] 













SA 
6A 
7A 
SB 
(6B | 1011 0000_[0xB0) 
a 






1000 1111 (Ox8F] 
1000 0111 [0x87] 


Table 39. EPS High Cell Voltage Selections 




























0001100 [0x0] 
90001100 _[0x0C] 
90001100 [0x0] 
0000 1100 [0x0] 
[SolarPanel Bus |__| 00000101 [05] | 00001010 [0xOA]_ 
[Battery | | 00001001 {09} | 00001010 _[0x0A}_ 
[BatteryB | | 00000001 [01] | 00001010 {0x0A} 


pee 
ee oom 
ae | 
/SolarPanel: =| ——S—Ss=sS:« 0000 11100 [0x0C] 0000 1100 [0x0C} 
a 
a 
cei 
as 


Table 40. EPS Current Selections. 
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APPENDIX F. A/D ACQUISITION 


Period [cycle [Set JAIDINO [ADINI ADIN? [AIDINa [AIDING 
[|__| _(BCS)___|(Modem) (EPS) _——~—~—~—~—~*d(CTMUXA)__|(TMuxe) 
[of of olDCS [Modem |SCCurents ——S«dLs=S (SC YSSCSC~S 
117 | | __ [Battery A CellOVoltage | SS 
22a sid Battery A Cell Voltage [| —SiCSSCSC~CS~S~S 
3 of a SSC*dSCOS*~*~*~*S*~*diBattery Curent —SSSCdESSSS~—SYCSC“‘(SNSCSC“*S 
a_i Jattery A Cell 2 Voltage [SSSCCCSC~C~S 
_s|__ 2 |_| Battery Cell 3 voltage [sit Ss=~—~—CS~SS 
ofa] SC=*dSS~S~*~sBatteryB Current = SCdECSSCS*~“~*~*~sYCSC“(#NNNCN#SUS’CN 
7 api i Battery A Cell 4 Voltage [SSCS 
a2] |_| [Battery ACell5 Voltage [| ——SiatSs“‘CSC;~*S 
dan. os) lsccuen ||. | of » 
[tof af_ [i ——Ssdattery A Cel Voltage | —SO]—SC~CS~S~SO 
[aif 2| [| ___ Battery ACell7Voltage [SSCS 


p12] BatteryA Current | 112 
pa} tt Battery A Cell 8 Voltage 
pat tT Battery Cell OVoltage [| AT 4 


pS] YT BattteryB Current |S] 1S 
pte} tt TC fBatteryB Celli Voltage | | 
pt Cattery BCell2 Voltage | tM} 
p18} OY} SC Current 818 
| to} tt | CBattery B Cell 3 Voltage | 1919 
p20} | CBatteryB Cell 4 Voltage | 20] 20 
ptt CT Battery A Current | 
peat Battery B Cell 5 Voltage | 22 
23} tT Cattery BB Cell6 Voltage {| 
p24 tT Cattery Current | 
p25] tt TT CBaattery BB Cell7 Voltage | 5] 
p26] | Cattery BCell8 Voltage | 6] 
Par SC Current 
| 28} tt | Spacecraft BusVoltage | 28] 8 
2} tT Solar PanelOCurrent | TD 
p30] to] Battery A Current | 880 
ptt tt TT Slar Panel Curent | ST 
p 32f tT Solar Panel Current | 
p33} ttt Battery Current | 
PP ae ae Solar Panel3Curent | 
p35] | Solar Panel4 Current | 
Peer | CSCCorent 
prt Solar Panel Current | 
psa} tT Solar Panel6 Current | 
pot] 3] Battery Current | 
Pp 4} tt Battery Current | 
p42 Solar Panel 7 Current | 


Table 41. A/D Conversion Schedule. 


107 





APPENDIX G. THERMISTOR TEMPERATURE 
CONVERSIONS 


To simplify temperature conversions for the Omega 440048 thermistors, a table is used to perform 
a binary search where a maximum of seven compares are needed for a lookup. The table is used by taking 
the value from the A/D converter and finding the closest match in the table. The position of the match in 
the table indicates the temperature of the sensor. The following discussion descrikes how the conversion 


process works. 


ie a 


7 A+ B*In(R)+C*[In(R)] (10) 


The equation shown above uses three coefficients which were calculated using the temperature 
range suggestions from the Omege Temperature Sensor manual [Ref. X]. A short MATLAB program 
(given below) was created to determine these coefficients based on the assumption that the most accurate 
temperature conversions are needed in the temperature ranges between 0°C to 30°C. The ability to change 
the coefficients means that the conversion formula can be tailored to have the best conversion for a certain 
temperature range. In doing so, three temperatures must be selected when using the program. One 
temperature must be below the range, another within the range, and the third above the range. 
Furthermore, there can be no more than 100°C between the two extremes, and each successive temperature 
can be no more than 60°C apart. The temperatures used are -30°C, 20°C, and 60°C. The corresponding 
resistances based on the generic lookup conversion provided by Omega are 481 kQ, 37.3 kQ, and 


7.599 kQ. The values for the coefficients are A=9.306x107, B= 2.218x10%, and C=1.253x10°. 


Ti. ="2300497s Sis: 

M2 = 20 + 273.15: 

T3 = 60 + 273.15; 

mo (l/Tl- 1/72; 1/T3]- 
Rl = 481.053; 

R2 = 37.3E3; 

R3 = 7599; 


m= (191 1; log{Ri) log(R2) log(R3); (log(R1))73 (log(R2))~3 
(log (R3))°3)'; 


S = inwcr) =< T > 
S 
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One channel of each temperature multiplexing unit is reserved as a fixed 1% precision resistor is 


used as a Calibration resistor to create a calibration current. The calibration current, I, is converted as 


follows. 





Io = Ae = kab 25 7 = 0.00122] (4 
Re Re Ro 
where R-. is the resistance of a (fixed 1%) (11) 


Calibration Resistor equal to xxx Q. 


Thus, a particular thermistor resistance, R, is converted as follows. 


V 
Rook. eS ooor2aie{ ~ | (12) 
Ie ie I 


Cc 





For quick temperature conversions, a table lookup is used where the value N is an index into the 
table. This table is shown in Table 42. Assuming a constant calibration current, the table can remain 


static. If the calibration current changes significantly, the table can be recalculated simply by multiplying 


all of the entries by the change in the calibration current. 


Ri 
Z <— = 819*R*I- (13) 
=.) 





Noe 


Because of the resolution of the A/D converter, temperatures above 88°C do not have unique 
conversions from the A/D. Since 5 mV of noise are allowed within the system, temperatures above 44° C 
are not accurate to within one degree Celsius. Finally, a saturated reading from the A/D, i.e. N = 4095, 
corresponds to any low temperature below -30° C. Note, 4191 is above the limit of the A/D, yet 


corresponds to the next integral temperature below -30° C. 
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TO oW_ | FO pew | TO pow 
5 EZ OC 
a0 ims ost soi 
B0_—spsia fies 











ais so _—«ie si 
-26.0 3127 14.0 4 








2992 15.0 





















1993 [ fe0__ per —ide@eoi 
p70_——*i87 OOS 
5 CA OC 
pis0____—*(teas___ | paso fase fossa 


roe [p60 «ds 
ris0____—*4disa0_ profes eri 


i; raf poate 


poise 9.0 ose fas 
Sc OC CC 
oft pro fist of 
One ofa 
Pra |__| ps0 fo 

oss [40 ‘fies |e 
0___—*fiooa 80 es 
095360 Yis6 760 
a CL OC 
-2.0 


Be | poise 
po «ip 90 
a CC EO 
oe ao 
poor —i=«i ids 
Boss op 
RO isa 


a 
0583 | #60 fos] Ja60 
m____ps6__| 970 fior___ | spas 
Boi 
pois CC 


Table 42. Thermistor Lookup Conversion Table. 
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APPENDIX H. SPACECRAFT COMMAND ENCODING 


This appendix gives the command encoding details. 


Byte/0/| Byte[1[ - Byte[4[ 


Table 43. Execute Command. 


Byte[0| | Byte[1[ - Byte[4| Byte[5] Byte[6[ - Byte[261] 


Ox0A Address Count Code/data 
(o> 
256) 


Table 44. Load Command. 


eT yell fn [Bet [on |” | Boecaso, 
Byte[4| Byte[9| Byte[259| 

OxSA Address Size Address Size Address Size 
pee eT ocbasy [A LeSaso LL deta 


Table 45. Map Command. 










Byte[O0| | Byte[1] - Byte[3| 
OxAA, 0x55, OxFF 


Table 46. Reset Command. 


Table 47. Status Command. 


Table 48. Verify Load Command. 


113 





APPENDIX |. SOFTWARE GENERATION FACILITIES 


This appendix contains the software generation facilities for the ROM Boot Loader embedded 
software for the System Controller. 


A PC compatible workstation using standard software generation tools creates the PANSAT Boot 
ROM software. The Microsoft C Compiler version 5.0 and the Microsoft Macro Assembler version 5.10 
translate the software source code into object modules. The Make facility included with these code 
generators provides an automated method for generating the ROM image. Systems And Software, Xlink86 
version 6.10e links all of the object modules into a relocatable code image. Systems And Software Xloc86 
version 6.10 translates the relocatable image into absolute address code and data. Finally, Systems And 
Software PROM86 version 6.0a prepares a binary image suitable for the ROM. The makefile, named 
dcs.mak and shown below, is responsible for identifying all the source modules and their dependencies 


which are required to build the entire ROM image for the embedded software. 


HHEHRHHHRHRHHH HAHAH HAHAHAHAHAHA HE 


# 

# DCS.MAK 

# 

# 

# Date Who What 

ee tpeecnno- teewcenecccercccercncenceo-necceeo----------=- 
# 25 March 1996 Jah Creation 

# 


HHHHHHHHHHHHHHHHHHHHHHHHHHHEH HEHEHE RA 


HHHHHHHHHHHHHHHHHH EHH REE H HHHHHHHHHRHHHH HRA RR 
# 


# Compiler and Assembler options 
= 


HHHHHHHHH HH HEHEHE HR HRE HEH HARE HHHH AER RR 


#MAKEDIR =. 

* 

# Compiler options:  /c no linking 

# /AS small model (64k code, 64k data) 
# /Zp pack structures on n boundary 

# /Gs no stack checking 

# /Od no optimizations 

# /Oi enable intrinsic functions 

# /FPa_ FP calls with altmath library 

# /Gl use 80186 instructions 


lis 


# /Z1 add symbolic debugging information 


CFLAGS = /c /AS /Zp1 /Gs /Od /Oi /FPa/G]1 /Zi 


§ 
# Assembler options:/Mx case-sensitive identifiers 
# IZi add symbolic debugging information 


AFLAGS = /Mx /Zi 


#f 
# General (common) dependencies 
# 


GEN_DEPS = gen _defs.h gen _apis.h 


OBJS = dcs.obj ad.obj bcm.obj clock.obj edac.obj eps.obj gen_apis.obj modem.obj msu.obj\ 
pcb.obj print.obj scc.obj stpi.obj terms.obj tlm.obj startup.obj 


HHHHHHHHHHHHHHHHHHHH HBR RE HEHEHE 
4 

# Compilations 

A 
HHHHHHHHHHHHHHHHHHHHH EHR EH AERA HE HH RHEE eRe 


dcs.omf: dcs.abs 
cv2omf dcs.abs to dcs.cv 
prom86 dcs.cv to dcs.omf omf initdata 
prom86 dcs.abs to dcs.bin ad(OF0000h, OFFFFFh) initdata one 


# Absolute address relocated image 
dcs.abs: dcs.Ink 


xloc86 @dcs.loc 
# Linked image 
des.Ink: $(OBJS) 

xlink86 @dcs.lk 
# source code modules 
dcs.obj: dcs.c des.h pcb.h $(GEN_DEPS) 
ad.obj: ad.c ad.h pcb.h tln.h $(GEN_DEPS) 
bcm.obj: bem.c bem.h ad.h clock.h peb.h tlm.h $(GEN_DEPS) 
clock.obj: clock.c edac.h $(GEN_DEPS) 
edac.obj: edac.c edac.h $(GEN_DEPS) 
eps.obj: eps.c eps.h pcb.h $(GEN_DEPS) 


gen_apis.obj: gen_apis.c gen_apis.h $(GEN_DEPS) 


#int.obj: int.c int.h $(GEN_ DEPS) 
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modem.obj: modem.c modem.h $(GEN_DEPS) 


msu.obj: msu.c msu.h pcb.h $(GEN_DEPS) 
pcb.obj: pcb.c pcb.h $(GEN_DEPS) 
print.obj: print.c print.h $(GEN_DEPS) 
#rf.obj: rf.c rf.h pcb.h $(GEN_DEPS) 
scc.obj: scc.c scc.h $(GEN_DEPS) 


#scenario.obj: scenario.c scenario.h $(GEN_DEPS) 


#spacket.obj: spacket.c spacket.h scc.h $(GEN_DEPS) 


stpi.obj: stpi.c stpi.h print.h tlm.h $(GEN_DEPS) 
terms.obj: terms.c terms.h $(GEN_ DEPS) 
tlm.obj: tim.c tlm.h ad.h bem.h pcb.h $(GEN_DEPS) 


Startup.obj: startup.asm 
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All of the modules are linked together by XLINK86 which uses a file named dcs.]k (shown below) to 


identify each module. 


startup.obj, dcs.obj, ad.obj, bcm.obj, clock.obj, edac.obj, eps.obj, gen_apis.obj, modem.obj, msu.obj, 
pcb.obj, print.obj, scc.obj, stpi.obj, terms.obj, tlm.obj, & 

slibca.ssi& 

to dcs.Ink 


Finally, the linked ROM image needs to have all address relocated to absolute addresses 
corresponding to the location of the ROM in the embedded system. This process is called loading, and is 
performed by the program XLOC86 which uses the file dcs.loc (shown below) to describe the relocation 


needed. 


des.Ink to dcs.abs & 

NOINITCODE & 

ORDER(CS(& 
FAR _DATA_BEG, FAR_DATA, FAR_DATA_END,& 
FAR BSS_BEG, FAR_ BSS, FAR_BSS_END,& 
HUGE_BSS_BEG, HUGE_BSS, HUGE_BSS_END,& 
DATA_BEG, DATA, CONST, MSG, DATA_END, & 
BSS, BSS_END,& 
STACK,& 
CODE, CODE _END,& 
BOOTSTRAP))& 

ADDRESSES(CS(FAR_DATA_BEG(0400H), CODE(OF0000h))) 
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APPENDIX J. SOFTWARE SOURCE CODE 


This appendix contains the software source code for the ROM Boot Loader software for the System 


Controller. The following source code files are included: 











208-217 


gen_defs.h General #defines, typedefs, and macros. 168 - 169 
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ad.h ad.c 
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* 


AD.H 


Petite Amateur Navy Satellite (PANSAT). 

Embedded ROM software. 

Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
Jim A. Horning (Jah) 


ee ae ae ae a 
ss SSS SES SS EE EE Ee 


* 

* 

* 

* 

* 

* 

* 

* Revision History: 
* 

* 

* 

t 

* 15 Aprilpigssc Jah Creation 

* 25 Feb 1997 Jah ROM version: reflects EPS port changes 
* 

* 


REE ERE RETREAT AAT EKER RE ee / 


/* Approximate time for a A/D Set to be aquired. This is the approximate 
* difference in time between successive current readings to the batteries. 
my 

#define AD DELTA_T 1 


#define AD RES ( (double) (5.0/4095.0)) 
#ifdef AD 


#define AD BASE 0x80 
#define AD_INSTRO AD_BASE 


#define AD _INSTR1 AD_BASE + 2 
#define AD _INSTR2 AD _BASE + 4 
#define AD_INSTR3 AD_BASE + 6 
#define AD INSTR4 AD_BASE + 8 
#define AD _INSTRS5 AD_ BASE + O0x0A 
#define AD_INSTR6 AD_BASE + 0x0C 
#define AD_INSTR7 AD BASE + O0x0E 
#define AD CONFIG AD_ BASE + 0x10 
#define AD_IER AD _ BASE + 0X12 
#define AD_ISR AD_BASE + 0x14 
#define AD _ TIMER AD _BASE + 0x16 
#define AD FIFO AD_BASE + 0x18 


#define AD LIMIT AD BASE + 0x1A 


/* Masks */ 


#define RAMOO 0x0000 

#define RAMO1 0x0100 

#define RAM02 0x0200 

/* Define the A/D schedule for readings. 
* The schedule is organized into periods. For startup, there are 
* 54 periods, number 0 - 53. Each period uses between one and 5 
* inputs on the A/D. A/D INO is the DCS temperature sensor, 
* A/D IN1 is the Modem temperature sensor, A/D IN2 is the EPS, 
* A/D IN4 is the TMUXA, and A/D IN6 is the TMUXB. 
* 
* Since the EPS contains the current sensors for the batteries and 
* the spacecraft bus (total solar panel current input), and these 
* signals must be read frequently for accurate current integration 
* and quick eclipse sensing, the schedule repeats these readings, 
* interleaving them with other readings. Each interleaving set 
¥* 


is called a Set, numbered from 0 to 13. There are normally 
three (3) cycles per set. 


4 


oe 
#define NUM_INPUTS 5 
#define NUM_PERIODS 42 


#define NUM_STEPS 14 
#define NUM_INSTRS 5 /* Maximum Sequencer instructions */ 
#define NO PCB ({unsigned char) 0xFF) /* indicates no PCB required for 
* reading; but a reading is needed. 
* 
#define NO_READ ((unsigned char) 0xFE) /* sate no reading on the A/D 


* channel for a given period. 


“7, 


/* EPS Setup requires potentially more than one Port 1/2/3 writing 


120 


* depending on the sensor. 
* for a given period, which port(s) need written to. 


This table is per period and shows 


Also, this 


* table indicates if the Current Inhibit Switch needs to be 


* disabled, i.e. current reading will be made. 

=) 
#define NOT_USED ((unsigned char) 0xFF) /* indicates port is not used t/ 
#define NO_CUR ((unsigned char) 0x00) /* not a current measurement */ 
#define CURRENT ((unsigned char) 0x01) /* current: solar bus, solar panels */ 
#define CUR_DIR (({unsigned char) 0x02) /* current w/ directiont */ 
#define NO_INSTR ((unsigned int) 0OxFFFF) /* instruction not used */ 


/* This structure describes to the ad_collect() function how to save A/D 
* samples into the correct categories and positions within those categories. 


ae 
typedef struct ad_collect_params 
{ 
unsigned char type; 
unsigned char position; 


} ad_collect_params_struct; 


/* Sensor types, used by ad_collect() and ad_collect_params() */ 


#define THERMISTOR (({unsigned char) 0) 
#define TEMP_SENSOR ({unsigned char) 1) 
#define V_BATTA ((unsigned char) 2) 
#define V_BATTB ({unsigned char) 3) 
#define V_BUS ({unsigned char) 4) 
#define I_BATTA (({unsigned char) 5) 
#define I_BATTB ({unsigned char) 6) 
#define I_BUS (({unsigned char) 7) 
#define I_SOLAR ((unsigned char) 8) 


/* AD Error Flags */ 


#define AD WAIT 5000 
#define AD NO ERROR 1) 
#define AD_RESET_ERROR 


#define 


aL 
AD_FIFO_COUNT_ERROR 2 
#define 3 


AD_CALIB_WAIT_ERROR 


void ad_collect (void) ; 
void ad_init (void) ; 
void interrupt far ad_isr(); 
#endif 
#ifndef AD 


extern art 
extern int 


samples ready; 
ad_flag; 


extern void ad_ collect (void) ; 
extern void ad_init (void) ; 
extern void interrupt far ad_isr(); 

#endif 
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AD.G 


Petite Amateur Navy Satellite (PANSAT). 
Embedded ROM software. 


Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
Jim A. Horning (Jah) 
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24 April 1996 Jah Creation 


* 

* 

* 

* 

* 

* 

* 

* Revision History: 
* 

* 

* 

* 

* 

* 25 Feb 1997 Jah ROM version includes new EPS port assignments. 
* 

* 


keke a Rak RK aR a RR a Rk kk ek ee / 


#include EcecneGces ny 

#define AD 

#include wad .h" 

#undef AD 

#include vpem.h" 

#include reLock.n" 

#include "eps .h" 

#include ipcb Hh" 

#include Se meh " 

Static WORD period = 0; 

static WORD ad_values [NUM_PERIODS] [NUM_INPUTS] ; 
Static int negative_current [NUM_PERIODS] ; 


int samples ready = FALSE; 


int ad_flag = AD_NO_ERROR; 


/* Schedule of PCB Commands for EPS reading */ 
Static const BYTE ad_sch_eps{NUM_PERIODS] [3] = 


{ 


/* Current? Port 3 Port 1 °*/ 

f= Sct. 0°*/ 

{ CURRENT, (BYTE) 0x80, (BYTE) 0x30}, /* ISC */ 
{NO_CUR, NOT_USED, (BYTE) 0x70}, /* AO */ 
{NO_CUR, NOT_USED, (BYTE) 0x90}, /* Al */ 

/* Set 1 */ 

{CUR_DIR, (BYTE) 0x90, (BYTE) 0x30}, /* IA */ 
{NO_CUR, NOT_USED, (BYTE) OxF1}, /* A2 */ 
{NO_CUR, NOT_USED, (BYTE) OXF 3) j0/~ 23 9*/ 

/* Set 2 */ 

(CURSDIR, (BYTE) OxAO, (BYTE) 0x30}, /* IB */ 
{NO_CUR, NOT_USED, (BYTE) OxF5}, /* A4 */ 
{NO_CUR, (BYTE) 0x01, (BYTE) 0x10}, /* AS */ 

/* Set 3 */ 

{ CURRENT, (BYTE) 0x80, (BYTE) 0x30}, /* ISC */ 
{NO_CUR, (BYTE) 0x03, (BYTE)0x10}, /* Aé */ 
{NO_CUR, (BYTE) 0x05, (BYTE) 0x10}, /* A7 */ 

/* (Set 4) > */ 

{CUR_DIR, (BYTE) 0x90, (BYTE) 0x30}, /* IA */ 
{NO_CUR, (BYTE) 0x07, (BYTE) 0x10}, /* A8 */ 
{NO_CUR, NOT_USED, (BYTE) 0xBO}, /* BO */ 

/* (Set 5) */ 

{CUR_DIR, (BYTE) OxAO, (BYTE) 0x30}, /* IB */ 
{NO_CUR, NOT_USED, (BYTE) 0xDO}, /* B1 */ 
{NO_CUR, NOT_USED, (BYTE) OxF7}, /* B2 */ 

/* Set 6 */ 

{ CURRENT, (BYTE) 0x80, (BYTE) 0x30}, /* ISC */ 
{NO_CUR, NOT_USED, (BYTE) 0xF9}, /* B3 */ 
{NO_CUR, NOT_USED, (BYTE) OxFB}, /* B4 */ 

/* Set 7 */ 

{CUR_DIR, (BYTE) 0x90, (BYTE) 0x30}, /* IA */ 
{NO_CUR, (BYTE) 0x09, (BYTE) 0x10}, /* BS */ 
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7 


{NO_CUR, (BYTE) 0x0B, (BYTE) 0x10}, /* Bé */ 

/* Set 8 */ 

{CUR_DIR, (BYTE) OxAO, (BYTE) 0x30}, /* IB */ 
{NO_CUR, (BYTE) OxOD, (BYTE) 0x10}, /* B7 */ 
{NO_CUR, (BYTE) OxOF, (BYTE) 0x10}, /* BB */ 


/* Set 9 */ 


{ CURRENT, (BYTE) 0x80, (BYTE) 0x30}, /* ISC */ 
{NO_CUR, NOT_USED, (BYTE) OxFD}, /* VSC */ 

{ CURRENT, (BYTE) 0x00, (BYTE) 0x50}, /* SPO */ 
/* Set 10 */ 

{CUR_DIR, (BYTE) 0x90, (BYTE) 0x30}, /* IA */ 
{ CURRENT, (BYTE) 0x10, (BYTE) 0x50}, /* SP1 */ 
{ CURRENT, (BYTE) 0x20, (BYTE) 0x50}, /* SP2 */ 
/* Set 11 */ 

{CUR_DIR, (BYTE) OxA0O, (BYTE) 0x30}, /* IB */ 
{CURRENT, (BYTE) 0x30, (BYTE) 0x50}, /* SP3 */ 
{CURRENT, (BYTE) 0x40, (BYTE) 0x50}, /* SP4 */ 
7. Set 12 */ 

{ CURRENT, (BYTE) 0x80, (BYTE) 0x30}, /* ISC */ 
{ CURRENT, (BYTE) 0x50, (BYTE) 0x50}, /* SPS */ 
{ CURRENT, (BYTE) 0x60, (BYTE) 0x50}, /* SP6 */ 
{CUR_DIR, (BYTE) 0x90, (BYTE) 0x30}, /* IA */ 
{CUR_DIR, (BYTE) OxA0, (BYTE) 0x30}, /* IB */ 
{ CURRENT, (BYTE) 0x70, (BYTE) 0x50}, /* SP7 */ 


Describe how to take the raw samples and organize them by types into 
the correct sensor type arrays. This is for the EPS readings only. 
The other channels are easy to categorize based on the period number 
{e.g. periods 0 - 31 have TMUX readings, period 0 has DCS & Modem 
temperature readings). 


Static const ad_collect_params_ struct ad_collect_table(NUM_PERIODS] = 


{ 


/* Period 0, Set 0 *t/ 


{I_BUS, 0}, 
{V_BATTA, 0}, 
{V_BATTA, 1}, 


/* 
{I_BATTA, 
{V_BATTA, 
{V_BATTA, 


Period 3, 
0}, 
23 
3}, 


/* Period 
{I_BATTB, 
{V_BATTA, 
{V_BATTA, 


/* Period 9, 
{I Busy 1}, 

{V_BATTA, 6}, 
{V_BATTA, 7), 


/* Period 
{I_BATTA, 
{V_BATTA, 
{v_BATTB, 


Bas 
1). 
&}, 
Oo}. 


/* Period 158 
{I_BATTB, : 
{V_BATTB, 1}, 
{V_BATTB, 2}, 


/* Period 186, 
{I_BUS, 2}, 

{V_BATTB, 3). 
{V_BATTB, 4}, 


/* Period 
{I_BATTA, 
{V_BATTB, 
{V_BATTB, 


20. 
2), 
Sie 
6), 


/* Period 
{I_BATTB, 


24, 
2}, 


Set 


Ser 


Set 


Set 


Set 


Set 


Set 1*/ 


3 ef 
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ne 


{V_BATTB, 7}, 
{V_BATTB, 8}, 


/* Period 27, Set 9 */ 
{I BUS, 3), 

{v_BUS, 0}, 

{I_SOLAR, 0}, 


/* Period 30, Set 10 */ 
{i BAITA, 3}, 
{I_SOLAR, 1}, 
{I_SOLAR, 2}, 


/* Period 33, Set 11 */ 
{Ti BArra 3}, 
{I_SOLAR, 3}, 
{I_SOLAR, 4}, 


/* Period 36, Set 12 */ 
{I_BUS, 4}, 

{I_SOLAR, 5}, 

{I_SOLAR, 6}, 


/* Period 39, Set 13 */ 
{I_BATTA, 4}, 
{I_BATTB, 4}, 
{I_SOLAR, 7}, 


ee ee eee TEATS ST SLATS ERE REA KARA A EEE AREA ERE EEE EER EERE EE EEE 


* 


* 
* 
* 
* 
* 
* 


voidad init () 


Initialize the A/D. Recalibrate. Setup first (period=0) program. 
Set Sequencer Timer (delay before acquisitoin) to 10 msec. 


eee eee eee eae Kaa ee ee / 


voidad_ init (void) 


{ 


int 1 
int x; 
WORD temp; 


/* Turn on the TMUXes to allow temperature sensing */ 
eps_set_power(PWR_TMUXA, ON) ; 


pcb write(TMUXA, 0, 0x10); /* select channel 0 (calibration resistor) */ 
eps _set_power(PWR_TMUXB, ON) ; 
peb write (TMUXB, 0, 0x10); /* select channel 0 (calibration resistor) */ 


/* Zero out values because no A/D has yet occurred (or forcing reset) */ 
for (i = 0; i < NUM_PERIODS; i++) 
{ 

negative current(i] = 0; 

ad_values{i] [0] = 0; 

ad_values[i] [1] = 0; 


} 


period = 0; /* index into ad_sch[][] */ 


/* Setup MUXes A/B for first temperature sensors (Calibration resistors) */ 
pcbw_m(TMUXAO, 0, 0x10) 
pebw_m(TMUXBO, 0, 0x10) 


/* Setup EPS for first reading */ 
pcbw_m(EPSO, 3, (ad_sch_eps[0] [1] )) /* EPS Port 3 */ 
pebw_m(EPSO, 1, (ad_sch_eps[0] [2])) /* EPS Port 1 */ 


eps set_port2(eps_get_port2()); 


outpw(AD CONFIG, 0x0002) ; /* Reset the A/D */ 
/* Wait for RESET bit to clear */ 
for x = 0; (x < AD_WAIT) && {(inpw (AD CONFIG) & Ox0002); x++) 


if (x == AD_WAIT) 


{ 
ad _ flag = AD_RESET_ ERROR; 
return; 
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) 


Outpw(AD CONFIG, 0x0008) ; /* Full Calibration */ 
/* Wait for CALIBRATION bit to clear */ 
for (x = 0; (x < AD_WAIT) && (inpw(AD_CONFIG) & 0x0008); x++) 
if (x == AD_WAIT) 
{ 
ad_flag = AD_CALIB WAIT ERROR; 
return; 


} 
oOutpw(AD_CONFIG, 0x0000) ; /* stop the sequencer and point to RAM 00 */ 


/* Program A/D Sequencer: based on schedule for period 0 */ 


outpw(AD_INSTRO, OxF208) ; /* EPS */ 
outpw(AD_INSTR1, OxF208) ; pe eeboe7 
outpw(AD INSTR2, OxF210) ; /* TMUX A */ 
outpw(AD_INSTR3, 0OxF218) ; /* TMUX B */ 
outpw(AD_INSTR4, OxF200) ; /* DCs */ 
outpw(AD_INSTRS, 0xF204) ; /* Modem, */ 
outpw(AD_INSTR6, OxF202) ; /* Pause */ 


/* Setup A/D Timer */ 
Outpw(AD TIMER, 2000); 


outpw(AD CONFIG, 0x0002); /* Reset the A/D */ 
/* Wait for RESET bit to clear */ 
bore = 0; “(x < AD_WAIT) && (inpw(AD_CONFIG) & Ox0002); x++) 
if (x == AD WAIT) 
{ 
ad_flag = AD_RESET_ERROR; 
return; 


) 


/* Force A/D to interrupt when 6 readings in the FIFO occur */ 
outpw(AD_ IER, 0x3004); 


/* Clear any interrupts of the A/D by reading the status register */ 
inpw(AD_ ISR) ; 


/* Allow IRQs from A/D LM12H4S8 to the CPU */ 
#define I1CON OxFF3A 
outpw{I1CON, 0x0005) ; /* Edge-trig., ON, priority S */ 


/* Start the A/D Sequencer. Interrupt will occur eventually */ 
outpw(AD CONFIG, 0x0001); /* start sequencer */ 


while (samples_ready == FALSE) /* wait for end of first A/D sweep */ 


e 


/* #na of advinit() */ 


PRR E EEE EEE EEE EEE EE EEE EEE EEE EEE EEE EEE EEE REE EE 


void interrupt far ad_isr() 


weeeteeeekerreekeeeeeeeeeeeeeeetaeeetetteetettettittietee teat ett et att / 


void interrupt far ad_isr() 


{ 


register mt p; 
register int x; 


BYTE temp; 

static int c = 6; /* first A/D period has six samples to read */ 
outpw(AD CONFIG, 0x0000) ; /* Stop sequencer, point to RAM 00 */ 

inpw(AD_ ISR) ; /* this clears the interrupt */ 

p = period; /* get a register copy of the current period */ 


/eereerreketeteeeereeeete / 


/* Collect A/D samples */ 


/eeeereereeeeeteetere ees / 


/* Wait for all the samples in the FIFO */ 
for (x = 0; (x < AD_WAIT) && (((inpw(AD_ISR) & OxF800) >> 11) < cc); x++) 


if (x == | WAIT) 
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ad_flag = AD FIFO COUNT_ERROR; 
/* Send non-specific EOI to Interrupt Controller */ 
outpw(OxFF22, 0x8000); 


Ceturd; 
} 
if (p == 0) /* Oth period has all six A/D samples */ 
{ 

inpw(AD_ FIFO); /* discard - double EPS reading */ 


ad_values[0][0] = inpw(AD FIFO) & OxOFFF; /* EPS */ 
ad _values[0] {1] = inpw(AD_FIFO) & OxOFFF; /* TMUXA */ 
ad_values(0][2] = inpw(AD_FIFO) & OxOFFF; /* TMUXB */ 
ad_values[0] (3] = inpw(AD FIFO) & OxOFFF; /* DCS */ 
ad values[0] {4] = inpw(AD FIFO) & OxOFFF; /* Modem */ 


} 


else if (p < 32) /* 1st - 31st periods have 4 A/D samples */ 
{ 
inpw(AD_FIFO) ; /* discard - double EPS reading */ 
ad values [p] [0] inpw(AD FIFO) & OxOFFF; /* EPS */ 
ad_values[p] [1] inpw(AD_ FIFO) & OxOFFF; /* TMUXA */ 
ad_values[p] [2] inpw(AD FIFO) & OxOFFF; /* TMUXB */ 


} 


else /* remaining periods have only 2 A/D sample */ 


{ 
inpw(AD FIFO) ; /* discard - double EPS reading */ 
ad_values[p] [0] = inpw(AD FIFO) & OxOFFF; /* EPS */ 


[etek eeeetkeee kee keke ek kek tk / 


/* Check Current Direction Sensing */ 
/eekeeteee tee tee eke etek kt tek / 


/* Was there a battery current reading in EPS ? */ 
if (ad_sch_eps[p] {0] == CUR_DIR) 
{ 
/* Read the direction. */ 
pebr_m(EPS1, 1, temp) /* Port 5 of the EPS */ 


/* Was it Battery A or B ? */ 


if (ad_sch_eps[p] [1] == 0x90) /* Port 3 tells MUX selection */ 
negative _current[p] = (temp & 0x01) ? FALSE : TRUE; 

evse 
negative_current[p] = (temp & 0x02) ? FALSE : TRUE; 


[/tekekeeeekkkeeeerererererxetieeket / 


/* Setup via PCB for new readings */ 
[/ttteekeekeeeekerererrrer ett ekeeee / 


/* Has a complete set of data been read? Ready to start over? */ 
P++; 
if (p >= NUM_PERIODS) 
{ 
p= 0; 
samples_ready « TRUE; 
} 


period = p; 


/* PCB commands for the MUXes */ 
Lips 32) 
{ 
pcbw_m(TMUXAS, C, Oxl0+¢p) 
pcbw_m(TMUXBS, C. Cxl0+p) 


} 
/* PCB commands for the EPS */ 
if (ad_sch_eps[pj [2] !»* NOT_USED) /* Program EPS Port 3 ? */ 


{ 
} 


pcbw_m(EPSO, 3, ad_sch_eps[p] [1]) 


/* There is always something sent to EPS Port 1 */ 
pcbw_m(EPSO, 1, ad_sch_eps[(p] [2] ) 


/tttkkekertteee etter etek tet ee / 
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/* Setup A/D for new readings */ 


/teteeeeeeeese seater eee / 


outpw(AD CONFIG, 0x0002); /* RESET, point to RAM 00 */ 


/* Wait for RESET bit to clear */ 
for (x = 0; (x < AD_WAIT) && (inpw(AD CONFIG) & 0x0002); x++) 
eee —— AD WAIT) 
{ 
ad_flag = AD_RESET_ ERROR; 
/* Send non-specific EOI to Interrupt Controller */ 
outpw(OxFF22, 0x8000) ; 


return; 

} 

if (p == 0) 

{ 
outpw(AD INSTRO, OxF208) ; /* EPS */ 
outpw(AD INSTRI, OxF208); /* EPS */ 
outpw(AD INSTR2, OxF210) ; /* TMUX A */ 
outpw(AD _INSTR3, OxF218) ; /* TMUX B */ 
outpw(AD INSTR4, OxF200) ; /* DCS */ 
outpw(AD_INSTRS, OxF204) ; /* Modem */ 
outpw(AD_INSTR6, OxF202) ; /* Pause */ 
outpw(AD IER, 0x3004); /* interrupt w/ 6 samples in FIFO */ 
C= 76" 


} 


else if (p < 32) 
{ 


outpw(AD_INSTRO, OxF208) ; /* EPS */ 
outpw(AD INSTR1, OxF208) ; /* EPS */ 
outpw(AD_INSTR2, OxF210) ; /* TMUX A */ 
outpw(AD INSTR3, OxF218) ; /* TMUX B */ 
outpw(AD_INSTR4, OxF202) ; /* Pause */ 
outpw(AD_IER, 0x2004) ; /* interrupt w/ 4 samples in FIFO */ 
c = 4; 
} 
else 
{ 
outpw(AD INSTRO, OxF208) ; /* EPS */ 
Outpw(AD INSTR1, OxF208) ; /* EPSuay 
outpw(AD INSTR2, OxF202) ; /* Pause */ 
outpw(AD IER, 0x1004) ; /* interrupt w/ 2 sample in FIFO */ 
C= 32). 
} 
outpw(AD CONFIG, 0x0008) ; /* Full Calibration */ 


/* Wait for CALIBRATION bit to clear */ 

for (x = 0; (x < AD_WAIT) & & (inpw(AD_ CONFIG) & Ox0008); x++) 
if (x == AD WAIT) 

{ 


ad_flag = AD_CALIB WAIT_ERROR; 


/* Send non-specific EOI to Interrupt Controller */ 
outpw(OxFF22, 0x8000) ; 
return; 


} 
Outpw(AD CONFIG, 0x0001); /* start sequencer */ 


/* Send non-specific EOI to Interrupt Controller «/ 
Ooutpw(OxFF22, 0x8000); 


} /* End of ad_isr() */ 


PEPER ee OTE AERA 


* void ad_check() 


* Check ad_flag for error condition. 


+ 


orterketeeteeeeeeteeeeakae kaa eee eee eee eae aakane race ete tae ees / 


void ad_check (void) 


{ 


Static int reset_count = 0; 
Static int fifo count = 0; 
Static int calib_count = 0; 
DWORD reset_time = OL; 
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} 


DWORD fifo_time = OL; 
DWORD calib_ time OL; 
DWORD ens 


t = get_elapsed time(); 
switch (ad_flag) 
{ 
case AD _NO ERROR: 
break; 


case AD RESET ERROR: 
/* This is a bad problem with no real fix. try initializing again. */ 
if ((++reset_count > 10) && (t - calib_time < ONE_MINUTE) ) 


{ 
} 


ad_init(); 
break; 


/* Force a shutdown */ 


case AD_ FIFO COUNT_ERROR: 
/* There was a count error trying to access the FIFO in ad_isr(). 
* Try initializing the A/D again and try acquisition. 
=), 
if ((++fifo_count > 10) && (t - calib_ time < ONE_MINUTE) ) 


{ 


/* Force a shutdown */ 


a@g_init(); 
break; 


case AD_CALIB WAIT_ERROR: 
/* This occurs only within ad_init(). It is a bad problem with no 
eee ale fl 


+7 


/* Force a shutdown */ 
break; 


aefault: 
break; 


} 
ad_flag = AD_NO_ERROR; 


/* End of ad_check({) */ 


[eee keke eee eee AeA 


* 


* 
® 
® 
x 
x 
x 
® 
® 
* 
® 
® 
* 


void ad_collect () 


Take all raw sensor readings from the last entire round of A/D collecting 
and organize into the telemetry structure within the .sensors structure. 


This organization takes data collected in sequence from the A/D ISR, and 
places it into the .sensors structure which is organized per sensor type. 


This is simplified by using ad_collect_table[]} which has an entry for 
every A/D acquisition that took place in the last A/D sweep. 


keekekkkeekk keke eee eee ae / 


void ad_collect (void) 


{ 


avites “as 
int pos; 


for (i = 0; i < NUM_PERIODS; i++) 


/* DCS & Modem Temps, EPS, TMUXA, and TMUXB readings are available */ 
tim.sensors.tmp[0} = ad_values([0} [31]; 

tlm.sensors.tmp[1]} = ad_values[0] [4]; 

/* Read EPS below.... */ 


tim.sensors.ts[0} = ad_values[0] [1]; /* TMUXA */ 
tim.sensors.ts[1] = ad_values[0] [2]; /* TMUXB */ 


} /* End of IF (i == 0) */ 
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else 12° (i < 32) 


{ 


/* Rea@ EPS below.... */ 


/* EPS, TMUXA, and TMUXB readings are available */ 
tlm.sensors.ts[i*2]) = ad _values[i) [1]; /* TMUXA */ 
tlm.sensors.ts[(i*2)+1]) = ad_values[i] [2]; /* TMUXB */ 


) /#@ime ofMIF (i < 32) */ 


/* All periods have an EPS reading, move it */ 
pos = ad_collect_table[i) .position; 
switch(ad_collect_table[i] .type) 
{ 
case V_BATTA: 
tlm.sensors.vbatta [pos] 
break; 


ad _ values [i) (0); 


case V_BATTB: 
tlm.sensors.vbattb[pos] = ad _values[i) [0]; 
break; 


case V_BUS: 
tlm.sensors.vscbus = ad _values[i) [0]; 


break; 


case I_BATTA: 


tlm.sensors.ibatta[pos]) = ad _values[i) [0]; 
if (negative_current[i)) 

tlm.sensors.ibatta[pos] |= 0x8000; 
break; 


case I_BATTB: 


tlm.sensors.ibattb[pos] = ad_values[i) [0]; 
if (negative_current [i] ) 
tlm.sensors.ibattb[pos] |= 0x8000; 
break; 
case I_BUS: 
tlm.sensors.iscbus[pos]) = ad_values[i] [0]; 
break; 


case I_SOLAR: 
tlm.sensors.isolar[pos) = ad_values[i) [0]; 
break; 
default: /* ERROR */ 
Ll++; 
ce 
break; 
} /* End of SWITCH (ad_collect_table[i] .type) */ 
}oo7* End of FOR */ 
samples ready = FALSE; /* flagged by ad_main_isr() - waiting for next A/D */ 


} /* End of ad_collect() */ 


End of ad.h ad.c 
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bcm.h bcm.c 
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* 


*— BCMA 


ee 


Battery Charge Monitor for Pansat 


+ 4 


Petite Amateur Navy Satellite ({PANSAT). 
Embedded ROM software. 


* 


* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
* Jim A. Horning (Jah) 

x 

* Revision History: 

* Sesesessese2ze5o2222E==z== 

¥ 

* Date Who What 

1 ee ee ef fc Se ce fore err poe eee ee ee em ee ee ee ee ee ee ere eer er reer rr scree 

* 29 Jan 1997 Jah Creation 


* 


eee eae aE a a kk rk kik / 


#define BCM_V_TH_STEPS 5 /* # of looksups in the voltage threshold (vs. 
* temperature) lookup table 
a 

#define BCM_NUM BATS 2 /* # of batteries */ 

#define BCM_NUM_CELLS 9 /* cells/battery */ 

#define BCM_NUM_MODES 2 /* Low, Standby, and Normal operation modes */ 


/* Power Use Modes determined by charge states of the batteries */ 
#define BCM_MODE_LOW 0 

#define BCM_MODE_STANDBY 1 

#define BCM_MODE_NORMAL 2 


/* Values to define the battery which is online and target (charging). */ 
#define BAT_A 0 

#define BAT _B a 

#define BAT_NONE 2 


/* Battery Controls */ 
#define CTRL_TRICKLE 0x01 


#define CTRL_ONLINE 0x02 
#define CTRL DISCHARGE 0x04 
#define CTRL_CHARGE 0x08 


/* Operational modes, depending on state of batteries */ 


tdefine MODE_LOW BCM_MODE_LOW 
#define MODE STANDBY BCM MODE_STANDBY 
#define MODE NORMAL BCM_MODE_NORMAL 


/* This structure holds all of the BCM variables which includes all of the 
* charge state history variables as well as variables which are used to 
* make decisions within the BCM. 


* The following structure is used by other modules to access the BCM states 
* by using the void bem_info(bcm_info_struct *info) function. 
a) 

typedef struct bem_info 


{ 


int count {BCM_NUM_BATS] ; 
float cap {BCM_NUM_BATS] ; 
int online; 

int target; 

ine mode; 

int adoad_detect; 

int eclipse; 

unsigned long inttimer; 

nt online_switch; 

WORD control {BCM_NUM_BATS] ; 


/* reconfigurable variables which affect charging decisions */ 
float dod{BCM_NUM_BATS] ; 


float temp_max; 
Int count_max; 
float OVEr int; 


float cap_max[BCM_NUM_BATS] ; 
float efficiency [({BCM_NUM BATS] ; 


float § v_threshold{BCM_NUM_BATS] {BCM_V_TH_STEPS] ; 
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float vth_low [BCM_NUM_BATS] ; 
unsigned long intover_times [BCM_NUM_MODES] ; 


pe bemeaneo struct; 


/* This structure holds all of the BCM variables which can be modified by other 
* modules when it is desired to change the parameters of the BCM. 


* The following structure is used in conjunction with the BCM function named 
* bem_Set_params (bcm_params_struct tparams) . 
=) 

typedef struct bcm_params 


{ 


int dod [BCM_NUM_BATS] ; 
float temp_dt; 

float temp_max; 

int count _max; 

float Ov@r Tint ; 


float cap_max [BCM_NUM_BATS] ; 

float efficiency [BCM_NUM_BATS]} ; 

float v_threshold [BCM_NUM_BATS] [BCM_V_TH_STEPS] ; 
float vth_low[BCM_NUM_BATS] ; 

unsigned long intover_times [BCM_NUM_MODES] ; 


} bem_params_struct; 


/* Include specifics for BCM.C */ 

#ifdef BCM 
/* Redefine shorthands for BCM routines */ 
#define NUM_BATS BCM_NUM_BATS 
#define V_TH_STEPS  BCM_V_TH_STEPS 
#define NUM_MODESBCM NUM MODES 
#define NUM_CELLS BCM_NUM_CELLS 
#define NUM_CELL_TEMPS 10 


/* Charge state history */ 


#define CS BAD 3 
#define CS_UNKNOWN ae 
#define CS_FORCE_OVER =a 


#define CS_OVERCHARGED 0 
/* positive charge state values are counts (the # of re-charge cycles on a battery */ 


/* Initial parameters */ 


#define DOD 0.40/* Depth of Discharge (% BELOW 100%) */ 

#define TEMP_LOW 5.0 /* Minimum temperature before heating batteries */ 
#define TEMP_MAX 35.00 /* Maximum temperature for charging */ 

#define COUNT_MAX 5 /* # of REcharges before OVERcharge */ 


#define OVER_INTEGRATE 1.20/* OVER Current integration allowed 
* (safety check) before stop charging */ 
-40/* Battery A A*thr capacity */ 
.40/* Battery B Athr capacity */ 
.83/* Battery A Efficiency */ 
.83/* Battery B Efficiency */ 


#define CAP_A 
#define CAP _B 
#define EFF_A 
mactine EFF_B 


oo f fF 


/* Timers (in seconds) for overcharge checking */ 
#define TIMER_LOW (2.54 *9SECS PER HOUR) 
#define TIMER_STANDBY (3.5L * SECS_PER_HOUR) 
#define TIMER_NORMAL (4.5L * SECS_PER_HOUR) 


#define TRICKLE_TIME FIVE MINUTES 
/* This is the time set on target_time[] to indicate that a battery has not 
* been charged yet. 


“7 
#define MAX TARGET TIME ((unsigned long int) 4294967296) 


#define VTH_LOW_BATA 1.20/* Undervoltage threshold to trigger overcharge */ 
#define VTH_LOW_BATB 1.20 


/* Low cell voltages that trigger battery preference decisions */ 


#define VLOW 0.90/* Minimum cell voltage for "healthy" battery */ 
#define VMAX LOW 1.10/* Minimum Maximum cell voltage for charged battery *t/ 
static void bem_charge (void) ; 

sWatic int bem_check_conditions (void) ; 

Static void bem_mode (void) ; 

static int bem_in_eclipse (void) ; 
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Static 
Static 
Static 
static 
Static 
Static 
static 
Static 
static 
Static 
void 


#endif 


/* Includes for all modules (except BCM.C) 


void 
void 
void 
void 
int 

void 
hehe 

void 


float bem_v_min(int battery) ; 


#ifndef BCM 


CoCr eC ial) 
exer 
extern 
extern 
Cx e worl 
extern 


#Hendif 


[ERR REE EEE ERE EEE EEE REE REE EERE EEE EERE EEE EERE ERE EERE ERR EERE EKER EK 


* 


BCM.C 


Int 


bem_online(int preferred) ; 
bem_overcharge (void) ; 


bem_recharge (void) ; 


bem_set_params(bcm_params_struct *params) ; 
bem_set_switches (void) ; 

bem target (int preferred) ; 

bem_tbound (signed char t)j; 
bem_v_max_clear(int battery) ; 

float bcm_v_max_min(int battery) ; 


bem_tlm_update (void) ; 


bem_get_mode (void) ; 
void bem_info(bcm_info_struct *); 
void bem_init (void) ; 
void bem_main (void) ; 
void bem_set_params (bcm_params_struct *); 
void bem_tlm_update (void) ; 


Battery Charge Monitor for Pansat 


referencing this BCM.H */ 


Petite Amateur Navy Satellite (PANSAT). 


Embedded ROM software. 
Copyright (c) 


1996 Space Systems Academic Group, Naval Postgradate School. 
Jim A. Horning (Jah) 


29 Jan 


L997 


7 Feb 1997 
24 March 1997 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* Revision History: 
* 
* 
* 
* 
* 
* 
* 
* 
* 


Who What 
Jah Creation 
Jah Remove Delta-Temperature checks in charging. 
Jah Use get_elpased_time() instead of get_time(). 


Check for trickle charge time for both batteries. 
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#include 
#include 


#include 


#include 
#include 


#define 
#include 
#undef 


#include 
#include 
#include 
#include 


<Stdio.h> 


<stdlib.h> 


‘gen .dets.h" 


"ellock.h" 
Speco rh” 


BCM 
"bom. h" 
BCM 


‘adh 
Adee sh" 
“eps .h" 
Sciam. h" 


/* Assume unknown charge state for both batteries (i.e. dead) */ 


Static int 


count [NUM_BATS] 


= {CS_UNKNOWN, CS_UNKNOWN}; 


/* Assume no capacity for both batteries */ 


static double cap [NUM_BATS] = {0.0, 0.0}; 
static int online = BAT_NONE; 
Staeie ant target = BAT_NONE; 
static int mode = MODE_LOW; 
static int dod_detect = FALSE; 
static int eclipse = TRUE; 
static unsigned long int over_timer = OL; 

static int online_switch = FALSE; 
static WORD control [BCM_NUM_BATS] = {0, 0}; 


/* Time since a battery was choosen as a Target. 
eS TNcAnIcy”, 


This is originally set to 


so that the BCM knows that this parameter has not been used. 
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* Otherwise, this timer indicates how long a target has been charging. 
* This variable is only used when a battery's charget state history is 
* UNKNOWN (e.g. deployment, reset, or data corruption). 


<7 
Static DWORD target_time[NUM_BATS} = {0L, OL}; 
Static float vbatt_avg[NUM_BATS} = {0.0, 0.0}; /* Battery Cell Voltage averages */ 
static signed char t_avg{NUM_BATS} = (0.0, 0.0}; /* Battery Cell Temperature averages */ 


/* Record of growing Maximum cell voltages of a battery while it is charging. 
* This information is used after the battery is charged to determine if 
* the lowest maximum voltage of these cells in a battery are below an 
* acceptable value for a battery which is in good condition. 
*/ 
static float v_max_cells{NUM_BATS} [NUM_CELLS} = 


/* reconfigurable variables which affect charging decisions */ 


Static float dod {NUM_BATS} = {DOD, DOD}; 

Static float temp_max = TEMP MAX; 

Suau.c int count_max = COUNT_MAX; 

Static float over_int = OVER_INTEGRATE; 

static float cap_max[NUM_BATS} = {CAP_A, CAP_B}; 

static float efficiency[NUM BATS} = {EFF_A, EFF _B}; 

Static float vth_low[NUM_BATS} = {VTH_LOW_BATA, VTH_LOW BATB}; 
#define T_LOW =5.0 


#define T_HIGH 3520 
Static float v_threshold {NUM_BATS} {V_TH_STEPS} = 


{ 


jiee6, 1.246,°1.46, 1.46, 1.46}, 
(1.46, 1.46, 1.46, 1.46, 1.46} 


a 


Static unsigned long int over_times{NUM_MODES} = 


{ 
}; 


TIMER_LOW, TIMER_STANDBY, TIMER_NORMAL 


/tetteteeeeeeeeeeererereereeeeee eee eeeeetetettseeeree teeters ee / 


[eter eeeeeeeeeteretere eee eee ee eee eee eee eaters / 


/ettte eerste eee eee eee eee eee eee 


* 


* void bem_main(void) 
* 


tetera etree eee ee eee eee eee eee eee eee | 


void bcm_main (void) 


{ 


int preferred; 


/* get new telemetry */ 
bem_tlm_update () ; 


/* Determine if in eclipse */ 
eclipse = bem_in_eclipse(); 


/* Determine preferred battery */ 
preferred = bem_check_conditions(); 


bem_online (preferred) ; 
bom target (preferred) ; 
bem_mode() ; 
bem_charge(); 


if (bcm_on) 
bem_set_switches () ; 


} /* End of bem_main() */ 


/tteeeeeeer ere eee ee eee eer eer ree eee eee eee eet eee ers ett etek eee a ee 


+ 


* void bem_charge (void) 
* 


7) Deltermmne, 1f charging is to occur. 


133 


* 
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void bem_charge (void) 


{ 


} 


if (eclipse == FALSE) 


if (target != BAT_NONE) 
{ 
/* There is a Target, and the spacecraft is NOT in eclipse. 
* What type of charging does the Target require? 
Df 
if ((count [target] < CS _OVERCHARGED) || (count[target] >= count_max) ) 
bem_overcharge () ; 


else 
bem_recharge () ; 


} 


/* End of bem_charge() */ 


J EEELEEEEEREAR EERE ET EEE EERE REE REESE TEE ETE EERE TAREE RE EE TEESE SE TGS ERO SGT wet ett 


int bem_check_conditions (void) 


Determine condition of batteries and wether or not there is a preferred 
Dabcery EO use. 


Se EEE EE EEE EERE EE / 


#define WARM -2 
#define COOL -1 
#define NUM_COND_STATES 5 


int bem_check_conditions (void) 


{ 


Dnt not_op [NUM_BATS] ; 
rite Preterred: 
int i aye De 


static int action[NUM_COND_STATES] [NUM_COND_STATES] = 


{ 


{WARM, BAT_A,  BAT_A, BAT A, BAT _B}, 
{BAT_B, WARM, BAT_A, BAT_B, BAT_B}, 
{BAT_B, BAT_B,  BAT_NONE, BAT_B, BAT_B}, 
{BAT_B, BAT_A, BATA, COOL, BAT_B}, 
{BAT_A, BAT_A,  BAT_A, BAT A, COOL} 


p 


static signed char condition[NUM_COND_STATES] = {-10,0, 35, 45, MAX CHAR}; 


/* start by assuming both batteries are usable */ 
not_op[BAT_A] = not_op[BAT_B] = FALSE; 


/* First, check if there is a target battery */ 
if (target != BAT_NONE) 
{ 
/* Want to look at the lowest cell voltage, but only after the target 
* has been trickle charged, and then normal charged for the fixed 
* length of times. 
+) 
if (get_elapsed time() > target_time[target] + TRICKLE_TIME) 


/* Make sure lowest cell voltage is above a certain amount. */ 
if (bcm_v_min(target) < VLOW) 
not_op[target] = TRUE; 


/* Now, check if any battery has already been charged at least once. If 

* so, and the battery is NOT the target (being charged), then check the 
lowest of the maximum cell voltages while the battery was charging. This 
minimum of the maximum cell voltages must be above a certain amount. 


*/ 
for (i = 0; i < NUM_BATS; i++) 
{ 
if (1 != target) 
{ 
if (count[i] != CS UNKNOWN) 


{ 


/* Check minimum of the maximum cell voltages */ 


134 


if (bcm_v_max_min(i) < VMAX_LOW) 
not_op[i] = TRUE; 


/* If there is a preferred battery, then indicate. Otherwise, do temperature 
* tests to still see if there is a preferred battery. 
r/ 

preferred = not_op[BAT_A] ? (not_op[BAT_B] ? BAT_NONE : BAT_B) : (not_op[BAT_B] 


if (preferred == BAT_NONE) 


{ 


/* For each battery, find which temperature category it falls within */ 
for (i = 0; i <= NUM_COND STATES - 1; i++) 
{ 
if (t_avg[BAT_A] < condition[i}) 
break; 


= i; 
for (i = 0; i <= NUM_COND_STATES - 1; i++) 


if (t_avg[BAT_B] < condition[i]) 
break; 


} 
b =i; 


Switch (action [b] [a] ) 
{ 
case WARM: 
preferred 
break; 


(t_avg[BAT_A] >= t_avg[BAT_B]) ? BAT_A : BAT_B; 


case COOL: 
preferred 
break; 


(t_avg[BAT_A] <= t_avg[BAT_B]) ? BAT_A : BAT_B; 


case BAT A: 


preferred = BAT_B; 
break; 

case BAT B: 
preferred = BAT B; 
break; 


case BAT_NONE: 
preferred 
break; 


BAT_NONE; /* no preference */ 


default: /* error */ 
preferred = BAT_NONE; 


return (preferred) ; 


} /* End of bem_check_conditions() */ 


/eeeeeeeeee etree eee eee eee eee eee ete eeeeeeeet tetera eeeeeeeee teeter eet 
* int bem_get_mode(void) 


* Report which operation mode the batteries are capable of supporting. 


eeeteeeeteet eects eee eee eee eee / 


int bem_get_mode (void) 
{ 


return (mode) ; 


} /* End of bem_get mode() */ 


[RRR EEE TATA AAA 
* int bem_in eclipse (void) 


* Determine if the spacecraft is in eclipse. 


eevee eeetee eee eee eee eee eee eee eee | 
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? BAT_A : BAT_NONE) ; 


int bcem_in_eclipse (void) 


if (tim _cnv.iscbus < 0.050) 
return (TRUE) ; 

else 
return(FALSE) ; 


} /* End of bem_in_eclipse */ 
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* 


* void bem_info(*bcm_info_struct info) 


* 


* Return information that describes the state of the BCM. 
* 


kitting koko ticks / 


void bem_info(bcm_info_struct * info) 


{ 


register int i, j; 


info->online = online; 
info->target = target; 
info->mode = mode; 
info->dod detect = dod detect; 
info->eclipse = eclipse; 


/* This is for the elased overcharge timer for the target battery */ 


if (over_timer != OL) 

info->timer = get_elapsed time() - over_timer; /* duration of overcharging */ 
else 

info->timer = OL; /* indicate not in use */ 
info->online_switch = online_switch; 


info->temp_max 
info->count_max 
info->over_int 


temp_max; 
count _max; 
SVEL sine; 


for (i = 0; i < NUM_BATS; i++) 


{ 


info->count [i] = Count (17 ]); 
info->cap{i] = cap[i]; 
Into-scontera!l [1] = control li); 
info->cap_max[i] = cap _max[i]; 
info->efficiency[i] = efficiency[i]; 
info->vth_low[i] = vth_low[i]; 


info->dod[i] = dod{[i]; 
for (9 = 0; 3 < V_TH STEPS; j++) 
info->v_threshold[i] [j] = v_threshold{i] [j]; 
for (i = 0; i < NUM_MODES; i++) 
info->over_times[i] = over_times[i] ; 


} /* End of bem_info({) */ 


[/RA AKER EEE roo aa kkk st 
void bem_init (void) 


Initialize the BCM. This is used to force a reset of the BCM for example 


when a data error has occurred and the charge state variables are no 
not valid. 
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void bem_init (void) 


register int i, j; 
als ¢ hie preferred; 


/* Determine preferred battery */ 
preferred = bcm_check_conditions() ; 
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if (preferred != BAT_NONE) 
/* There is a preferred battery due to environmental/battery 
* performance criteria. Use this battery regardless of 
* other charge state history information. 
af 
online = preferred; 


} 


else 

online = BAT_A; /* otherwise, default to Battery A */ 
target = BAT_NONE; 
mode = MODE_LOW; 
dod_detect = FALSE; 
eclipse = TRUE; 
over timer = OL; 
online_switch = FALSE; 
temp_max = TEMP_MAX; 
count_max ~~ = COUNT_MAX; 
over_int = OVER_INTEGRATE; 
cap_max[0] = CAP A; 
cap_max[1] = CAP_B; 
efficiency [0] = EFF A; 
efficiency [1] = EFF B; 
vth_low[0] = VTH_LOW_BATA; 
vth_low[1] = VTH_LOW_BATB; 


for (i = 0; i < NUM_BATS; i++) 
{ 
/* Maximum cell voltages, recorded while battery is charging. */ 
for (j = 0; j < NUM_CELLS; j++) 
v_max_cells{i][j] = 0.0; 


count [i] = CS_UNKNOWN; 
cap{i} = 0.0; 
target _time[i] = 4294967295L; 


Enava [2] =, 0.0; 


dod[i] = DOD; 
} 


over_times [MODE_LOW] = TIMER_LOW; 
over_times(MODE_STANDBY] = TIMER_STANDBY; 
over_times [MODE_NORMAL] = TIMER_NORMAL; 


/* Turn OFF all battery controls, but leave the ONLINE battery online */ 
eps_batts_off (online) ; 


} /* End of bem init() */ 


[ete eeeeeeeeeee eee eee eee eee aaa 


* int bcm_mode(void) 
* Determine which operation mode the batteries are capable of supporting. 
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void bem_mode (void) 


register int other; 
other = (online == BAT_A) ? BAT_B : BAT_A; 


if (count[online] == CS UNKNOWN) 
mode = MODE_LOW; 


else if (count[other] == CS_UNKNOWN) 
mode = MODE _LOW; 


else if (capfonline] < cap_maxfonline]*(1.0 - dod[online] )) 
mode = (cap_max[other] < cap_max[other]*(1.0 - dodfother])) ? MODE_LOW : MODE_STANDBY; 


else 
mode = (cap[online] < cap _max[online]*(1.0 - dodfonline])) ? MODE_STANDBY : MODE_NORMAL; 
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} /* End of bem_mode() */ 


[EERE SER EEE EES EERE AHS RAA EEE E EET ERE EEE EEE EE ee oe 


void bem_online (void) 


* 
* 
* Determine which battery should be online. 
* 
* 
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void bem_online(int preferred) 


{ 


online_switch = FALSE; 


af 


{ 


(preferred != BAT_NONE) 


/* There is a preferred battery due to environmental/battery 
* performance criteria. Use this battery regardless of 
* other charge state history information. 
a7 
if (preferred != online) 
online switch = TRUE; 


online = preferred; 
if ( (capfonline] <= cap_maxfonline]*(1.0 - dodfonline])) || 
(vbatt_avgfonline] < vth_low[online]) } 


SOGEGCECCE —“EIKUE; 


return; 


/* Is there already a battery online ? */ 
else if (online != BAT_NONE) 


{ 


/* Has the voltage of the online battery dropped below its 
* low voltage threshold. 
ef 
if ((vbatt_avgfonline] < vth_low[online]) && (count[fonline] >= 0))} 
{ 
/* The online battery has charge history and is not 
* acknowledge as needing OVERCharge. Yet, its average 
* voltage has dropped below a voltage threshold, signifying 
* it has less capacity than expected. Therefore, force it to 
* be overcharged in its next charge cycle. 
7 
countfonline] = CS_FORCE_OVER; 


} 


/* Is the online battery below DOD ? */ 
if ( (capfonline] <= cap max[online]*(1.0 - dod[online])) || 
(vbatt_avg[fonline] < vth_low[fonline]) } 


/* What 16 the Target? If there is already a Target, then 
the Target must remain charging, and the Online battery must 
* remain online until the Target finishes charging. Therefore, 
DOD has been reached and a temperature reference must be set 
on the Target since charging will now occur at a quicker rate. 
°7 
if (target !« BAT_NONE) 
{ 
/* There 16 a Target battery. Is this the first time this 
* (be.ow DOD) been detected? If so, mark the Target's 
* temperature for charging decisions. 
e 
1f ('ded detect) 
G@>3_derect = TRUE; 


else /* There is no Target, switch the online battery */ 
{ 
Online _ switch «= TRUE; 
Bwitchionline) 
{ 
case BAT_A: 
Online = BAT Bb; 
break; 
case BAT_B: 
online = BAT_A; 
break; 
default: 
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/* This 1S an ERROR case and should never happen */ 
online = (cap(BAT_A] >= cap[BAT_B]) ? BAT_A : BAT_B; 
break; 


} 
} /* End of capf[online]... */ 
else /* enough capacity still, no action */ 
{ 
} 


} /* End of if (online != BAT_NONE) +/ 


else /* There is no online battery, choose one */ 


{ 


if (count (BAT_A] == CS_UNKNOWN) 
/* Battery A has no charge state history, how about Battery B? */ 
online = (count [BAT_B] == CS_UNKNOWN) ? BAT_A : BAT_B; 


else /* A has charge state history, but what about B ? */ 


{ 
if (count [BAT_B] == CS UNKNOWN) 
online = BAT_A; 
else 
online = cap[BAT_A] >= cap[BAT_B] ? BAT_A : BAT_B; 


} 


/* Since a new battery has JUST been selected to become online, force 
* DOD detect to FALSE. 


=, 
dod_detect = FALSE; 
} /* End of else (no online battery...) */ 


/* End of bem_online() */ 


PUTTS A ARATE THERE TERETE TERRE EAE AEE EET ETEK EEE 


* void bem_overcharge (void) 


* Perform charging on the Target using the OVERcharge method. 
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void bem_overcharge (void) 


{ 


/* First, check to make sure the temperature of the Target is low enough. */ 
/* However, this ignored when first starting in case there was a hot-soak 
* on the spacecraft while in the shuttle bay which would cause the 


* spacecraft to be hot when ejected..... immediate cooling is expected. 
</ 
if ((t_avg[target] <= temp_max) || (get_elapsed_time() < ONE_HOUR)) 


{ 
/* Check so that the Target has not OVER Integrated, a safety check */ 
if (cap[target] < cap _max[target] tover_int) 
{ 
/* Has the Target reached the voltage threshold which is indicative 
* over beginning to reach the overcharge portion of the charge 
* cycle? If overcharge timer (overtime) is NOT zero, then it is 
* already active, which means the voltage threshold was already reached 
* earlier. 
+f 
if ( (vbatt_avg[target] < (v_threshold[target] [bcm_tbound( (signed char)t_avg[target])]) 
&& (over_timer == (unsigned long int)OL)) } 
{ 


/* Below the voltage threshold, continue charging */ 
/* no new action needed. */ 


} 


else /* OVERcharge */ 


{ 


if (over _ timer == OL) 


{ 


/* Begin the overcharge, mark the time. Non-zero means the timer 
* is active. 
7 

over_timer = get_elapsed_time(); 


} 


else /* Already in overcharge, how is it going? */ 


{ 
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if (get_elapsed_time() >= (over_timer + over_times [mode] )) 
{ 

count [target] = CS _OVERCHARGED; 

cap[{target] = cap_max[target] ; 

target = BAT _NONE; 

dod_detect = FALSE; 

over_timer = OL; 


) 


else 


{ 


/* Continue overcharge using NON DOD detect method. */ 
/* No new action needed. */ 


) 


else /* OVER integration occured, stop the charging. */ 
{ 

count [target] = CS _OVERCHARGED; 

cap{target] = cap_max[target] ; 

target = BAT _NONE; 

dod_detect = FALSE; 


} 


else /* TOO HOT */ 
{ 
/* Do not change capacity; however, it is ASSUMED that the battery charging 
* is not complete. So, the count is placed to CS FORCE OVER, so that 
* the next time this battery becomes the Target, it will be forced into 
* OVERCharge. 
*/ 
count [target] = CS_FORCE_OVER; 
target = BAT_NONE; 
dod_detect = FALSE; 


} 


} /* End of bem_overcharge() */ 


/eteeekeeeeeekeeetkeeeteteetkkekkekkekeeeeeeteeterreteketeeet rer etree eee eee eee ee 
* void bem_recharge (void) 
* 
* Perform charging on the Target using the REcharge method. 
* 
eeeekeeeekk tee eek ee keke eke kee eee eee ee eee cece eee keke tee kkk ekkeet eet ere kee ee / 


void bem_recharge (void) 
/* First, check to make sure the temperature of the Target is low enough. */ 
/* However, this ignored when first starting in case there was a hot-soak 
* on the spacecraft while in the shuttle bay which would cause the 


* spacecraft to be hot when ejected..... immediate cooling is expected. 
*/ 
if ((t_avg[target] <= temp_max) || (get_elapsed_time() < ONE_HOUR)) 


{ 
if (cap[{target] >= cap_max[target] ) 


{ 
/* REcharged */ 
count [target] ++; 
cap[target] = cap_max[target] ; 
dod_detect = FALSE; 
target = BAT_NONE; 


} 


else 


{ 
} 


/* Continue recharge. No new action needed. */ 


} 


else /* TOO HOT */ 
{ 
/* Do not change capacity; however, it is ASSUMED that the battery charging 
* is not complete. So, the count remains the same as well. 
= 
target = BAT _NONE; 
dod_detect = FALSE; 


140 


} /* End if bem_recharge() */ 


fRERERA ETAT EEE TEER EEE EERE EEE EEE 


® 


* void bem_set_params(bcm_params_ struct *params) 
* 
* Allow BCM parameters to be modified. 


® 


eee ee ee ee Re SS SEERA ERASE TSE TEE REAR REE REEKEER EC ETE ESE TEE REE RED / 


void bem_set_params(bcm_params_struct *params) 


{ 


register inti, j; 


temp max = params->temp max; 
count_max = params->count_max; 
over int = params->over int; 


for (i = 0; i < NUM_BATS; i++) 


{ 


cap_max[i] = params->cap_max[i] ; 
efficiency[i] = params->efficiency[i] ; 
vth_low[i] = params->vth_low[i]; 


Per (j = 0: j < V_TH_STEPS; j++) 
v_threshold[i][j] = params->v_threshold[i] [j]; 


dod[i] = params->dod [i] ; 


for (1 = 0; 1 < NUM_MODES; i++) 
over times[i] = params->over_times[i)] ; 


} /* End of bem_set_params() */ 


PRR TT ET EEA EEE EEE EEE Ree eee eee eee 


* 


* void bem_set_switches () 

® 

* Set the battery switches according to all of the decisions made within one 
* pass through the BCM. 


£ 


eeeeeereeterreeeekerketekeceeeeeeeeeeeeeereree rere eee eee ete ete eee tee eee / 


int bem_set_switches (void) 
register int offline; 
register int not_target; 
aris mode; 


/* Indicate which controls are set. Begin by setting all control status off */ 


offline = (online == BAT_A) ? BAT_B : BAT_A; 
control fonline] = 0; 

control [offline] = 0; 

not_target = (target == BAT_A) ? BAT_B : BAT_A; 


/* Turn on ONLINE switch for battery to be online. It doesn't matter if 
* the online bateries are being switched (A->B) or (B->A) as long as you 
* FIRST turn ONLINE a battery, and THEN turn OFFLINE the other. 


ae 
if (eps_set_battery(online, BAT_ONLINE) == ERROR) 
return (ERROR) ; 
if (eps_set_battery(offline, BAT _OFFLINE) == ERROR) 
return (ERROR) ; 
control[online] |= CTRL_ONLINE; 
1f (eclipse) /* turn OFF battery controls, EXCEPT online */ 


eps batts off (online); 


else if (target != BAT_NONE) /* turn ON all that needs to be - except online (already done) */ 


{ 


/* CHARGING: Normal or Trickle ? */ 


/* Only do Trickle charging on a battery that has no charge state 
* history, and that has only been selected to be charged within 
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* the TRICKLE_TIME time frame. 
ay: 
if ((count [target] == CS_UNKNOWN) && 
(get elapsed time() - target_time[target]) < TRICKLE_TIME) 


/* Make sure all normal charging switches are OFF */ 


if (eps _set_battery(not_target, BAT_CHARGE_OFF) == ERROR) 
return (ERROR) ; 
if (eps_set_battery(target, BAT_CHARGE_OFF) == ERROR) 


return (ERROR) ; 


if (eps_set_battery(not_target, BAT_TRICKLE_OFF) == ERROR) 
return (ERROR) ; 

if (eps set _battery(target, BAT_TRICKLE_ON) == ERROR) 
return (ERROR) ; 

control[target] |= CTRL_TRICKLE; 


} /* End of IF (Trickle Charging) */ 


else /* Time for Normal Charging */ 


{ 


/* Make sure all trickle charging switches are OFF */ 


if (eps _set_battery(not_target, BAT_TRICKLE_OFF) == ERROR) 
return (ERROR) ; 

if (eps _set_battery(target, BAT_TRICKLE_OFF) == ERROR) 
return (ERROR) ; 

if (eps_set_battery(not_target, BAT_CHARGE_OFF) == ERROR) 
return (ERROR) ; F 

if (eps_set_battery(target, BAT_CHARGE_ON) == ERROR) 
return (ERROR) ; 

control [target] |= CTRL_CHARGE; 


} /* END of ELSE (Normal Charging) */ 


} /* End of ELSE (target != BAT_NONE) */ 
else /* There is NO Target, so make sure all controls are OFF */ 
{ 
eps batts off (online) ; /* turn OFF battery controls, except online */ 


} 


/* Now, check for the battery heaters */ 
mode = (t_avg(BAT_A] < TEMP_LOW) ? ON : OFF; 
eps_set_power(PWR_HEATA, mode); 


mode = (t_avg[BAT_B] < TEMP_LOW) ? ON : OFF; 
eps_set_power(PWR_HEATB, mode) ; 


}  /* End of bem_set_switches() */ 


[TRASK EKEEEEREEEEEE HEE EEE EKER EERE EEK EERE EERE EKER EEEKEEEEEEEKKEEKE 


* 


* void bcm target (void) 


* Determine which battery should be (targeted) to charge, if any. 


* 


Petre eee KEKE EEE KKK / 


void bem_target (int preferred) 
{ 
if (preferred != BAT_NONE) 
/* There is a preferred battery to set as the target due to 
* environmental and battery performance criteria. 


of 


/* Is there a target battery already, and is it the same as the 
* preferred? If so, do not interrupt (restart) the target 
* selection process. 


<i 
if (preferred != target) 
if (count (preferred) == CS_UNKNOWN) 
{ 
target = preferred; 
cap(target) = 0.0; 
} 
else if (count[preferred] == CS_FORCE_ OVER) 
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target = preferred; 


else if (cap(preferred] < cap_max([preferred]*(1.0 - dod[preferred] )) 
target = preferred; 


/* else, the preferred battery is not ready to charge - leave it */ 


if (target != BAT _NONE) 

{ 
/* zero out the cell voltage maxes */ 
bem_v_max_clear (target) ; 


over timer = OL; /* indicate just determined the target */ 
/* this is the overcharge timer */ 


target _time[target] = get_elapsed_time(); 


else if (target == BAT_NONE) 
{ 
/* There is no target, try to choose one if appropriate. */ 
if (count [BAT_A] == CS_UNKNOWN) 
{ 
/* A has no charge state history, it is the Target; however, 
* if B is also the same, mark its charge history likewise. 
uy 
if (count [BAT_B) == CS_UNKNOWN) 


— 


cap(BAT_B) = 0.0; 


target = BAT_A; 
cap[(BAT_A] = 0.0; 


} 


/* How about B ? */ 

else if (count [(BAT_B] == CS_UNKNOWN) 

{ 
/* Battery B has no charge state history, but A does. */ 
target = BAT_B; 
cap[BAT_B) = 0.0; 


else 
{ 
/* Does A need to be forced to overcharge ? */ 
if (count [BAT_A) == CS_FORCE_OVER) 
target = BAT A; 
/* A does not need a overcharge forced, how about B? */ 
else if (count [BAT_B] == CS_FORCE_OVER) 
target = BAT B; 
else /* Need to look at Capacities now in order to decide. */ 
{ 
if (cap[BAT_A] <= cap[BAT_B)) 
target = (cap[BAT_A] <= cap_max[(BAT_A]*(1.0 - dod(BAT_A])) ? BAT_A : BAT_NONE; 
else 
target = (cap(BAT_B] <= cap_max[BAT_B]*(1.0 - dod[BAT_B])) ? BAT_B : BAT_NONE; 
} 
} 
if (target != BAT _NONE) 
{ 
/* zero out the cell voltage maxes */ 
bem_v_max_clear (target) ; 
over_timer = OL; /* indicate just determined the target */ 
/* this is the overcharge timer */ 
target_time[target] = get_elapsed_time(); 
} 
} /* End of IF (target == BAT_NONE) */ 
else 


{ 
} 


/* The Target has ALREADY been previously choosen, leave it. */ 
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} /* End of bem_target() */ 


[RRR EEE EEE REE ERE EERE ARERR RE REE EEK EKER RRR EERREEKEE EKER KK EEE 
int bem tbound(float t) 


This funcion categorizies a temperature value into an index 
for table lookup into the voltage vs. temperature table 


v_threshold [target] [temperature] 


to check if a 
charging battery has reached the voltage threshold. 


Jah: optimize 
Ree ae ee ee ae ea ee a EE EE EE aE Re Rk ek / 


int bem_tbound(signed char t) 


{ 


unsigned char range = (unsigned char) (T_HIGH - T_LOW); 
unsigned char dt = (unsigned char) (range/V_TH_STEPS) ; 


signed char acc = (signed char)T_LOW; /* accumulator from T_LOW to T_HIGH in steps of dt */ 
register int i =O /* index corresponding to the temperature */ 


if (t >= T BIGH) 
return(V_TH_STEPS - 1); 


else 


{ 


while (t > acc) 


l++; 
ace += dt; 


} 


return(i)j; 


} 


} /* End of bem tbhound() */ 


[RRR Re aR EEE EEE EEE EEE EE EEE EE EEE EEK EEE KER REE ES 
x 


* void bem_tlm_update() 


* 
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#define BAT_A_TSO 2 
#define BAT_B TSO 12 


void bem_tlm_update (void) 


{ 


unsigned register inti, j; 


WORD a, b; 

WORD ta, tb; 

a Tit na, nb; 

static DWORD t old ="0; /* for dTime for Cap. cales */ 


/* Voltages */ 
vbatt_avg([BAT_A) 
vbatt_avg[BAT_B] 


tlm_cnv.vcellsa_avg; 
tlm_cnv.vcellsb_avg; 


/* Now, update the maximum cell voltages */ 
for (j = 0; j < NUM_CELLS; j++) 
if (v_max_cells[BAT_A] [j] < tlm_env.vcellsa[j]) 
v_max_cells([BAT_A] [j] tlm_cnv.vcellsa[j] ; 
for (j = 0; j < NUM_CELLS; j++) 
if (v_max_cells[BAT_B] (j] < tlm_cnv.vcellsb[j]) 
v_max_cells[(BAT_B]) [j] = tlm_cnv.vcellsb[j] ; 


/* Capacities */ 
if (tlm_cnv.ibatta < -0.020) 


cap[BAT_A] += tlm_cnv.ibatta*( (double) (tlm_record.etime - t_old)/ (double) SECS_PER_HOUR) ; 
else if (tlm_cnv.ibatta > 0.020) 


cap(BAT_A] += efficiency [BAT_A] *tlm_cnv.ibatta*( (double) (tlm_record.etime - 
t_old) / (double) SECS_PER_HOUR) ; 
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Pi e(Cimscoveibatth < -0.020) 
cap [BAT_B] += tlm_cnv.ibattb*( (double) (tlm_record.etime - t_old)/(double)SECS PER HOUR); 
else if (tlm_cnv.ibattb > 0.020) ae 
cap[BAT_B] += efficiency [BAT_B] *tlm_cnv.ibattb* ( (double) (tlm_record.etime - 
t_old) / (double) SECS_PER_HOUR) ; 
t_old = tlm_record.etime; 


/* Temperatures */ 
/* Get first average with ALL measurements */ 
for (ta = 0, tb = 0, i = 0; i < NUM_CELL TEMPS; i++) 
{ 
ta += tlm_cnv.ts[BAT_A_TSO + i]; 
tb += tlm_cnv.ts[BAT_B TSO + i]; 


} 
a = ta/NUM_CELL_ TEMPS; 
b = tb/NUM_CELL_ TEMPS; 
/* Now, remove any measurements that are above/below 5 degrees */ 
for (na = 10, nb = 10, 1 = 0; i < NUM_CELL_TEMPS; i++) 
if ((tlm_cnv.ts[BAT_A_TSO + i] m= (a+ 5)) || 
(tlm_cnv.ts[BAT_A_TSO + i] <= (a - 5))) 
{ 


ta -= tlm_cnv.ts[BAT_A_TSO + i]; 
na--; 


} 


if ((tlm_cnv.ts[BAT_B TSO + i] >= (b+ 5)) || 
(tlm_cnv.ts[BAT_B TSO + i] <= (b - 5))) 
{ 


Gee-=)tim cnv.ts{BAT 5 TSO + i); 
nb--; 
} 
} 
/* Recompute the average */ 
if (na == 0) 
t_avg[BAT_A] 
else 
t_avg[BAT_A] = ta/na; 


a; /* weird case - avoid divide by zero */ 


if (nb == 0) 
t_avg[BAT_B] 
else 
t_avg [BAT_B] 


b; /* weird case - avoid divide by zero */ 


tb/nb; 


} /* End of bem_tlm_update() */ 


/R AAA eee eee ATTA AeA eee eee 


*« 


* void bem_v_max_clear(int battery) 
¥ 


* Set the maximum cell voltages history all to zero in order to restart the 


* recording of maximum cell voltages for a particular battery. 
¥ 


eeeeeeeeeeee eee eee eee ee eee ete tee eee eee eee eee eee eee eee eee ee  / 


void bem_v_max_clear(int battery) 


{ 


register int i; 


for (i = 0; i < NUM_CELLS; i++) 
v_max_cells[battery] [i] = 0.0; 


} /* End of bem_v_max_clear() */ 


/Reeeet eee eee eet eee eee ee eee eee eee eke eee rete eet eeeteeeterk eek eeteereees 


* 


id 


void bem_v_max_min(int battery) 


* 

* Return the minimum cell voltage of all of the recorded maximum cell 
* voltages for a particular battery. 
*® 
® 


eeeeeeteeeete eee eee eee eee eee eee eee eee eee eee eee eee eee eee eee eee eee eee ee / 


float bem_v_max_min(int battery) 


{ 
register int i; 
float xX = 100.0; 


for (i = 0; i < NUM_CELLS; i++) 
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PE Mv omaxscet ls (battery) [1] soak) 
x = v_max_cells [battery] [i] ; 


return (x); 


} /* End of bem_v_max_min() */ 


[RR TT ETE TET ETE EAE EERE EEE EERE 
void bcm v min(int battery) 


x 
x 
* Return the minimum cell voltage from the current telemetry record of cell 
* voltages for a particular battery. 
* 
x 
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float bem_v_min(int battery) 


{ 


register int i; 
Float x = 5200.0; 


if (battery == BAT_A) 
for (i = 0; i < NUM_CELLS; i++) 
1f (tlm_cnv.vcellsa[i] < x) 
x = tlm_cnv.vcellsa[i]; 


else /* Must be battery B */ 
for (1 = 0; i < NUM_CELLS; i++) 
if (tlm_cnv.vcellsb[{i] < x) 
x = tlm_cnv.vcellsb[i] ; 


return (x) ; 


} /* End of bem_v_min() */ 


End of bcm.h bcm.c 
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clock.h, clock.c 
PREMETRAEE EEE EEE EE ERATE EEE EEE EE EE 
* CLOGK.H 

* Real time clock for PANSAT 

* Petite Amateur Navy Satellite (PANSAT). 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 


* Jim A. Horning (Jah) 


* Revision History: 


* Date Who What 
Te  SseqogqccocSecoocoss peer er ewe eo tow etm me em mem Mm mm Mm wm wm wm Mm ew ew we ew wm we wm wm ew ew ew ew ew eH we eee ee eee eee eK 
* 8 March 1996 Jah Creation 
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/* Tick intervals for day and time stamping */ 
#define SECS_PER_MIN 60L 


#define SECS PER_HOUR (SECS _PER_MIN*60L) 
#define SECS _PER_DAY (SECS _PER_HOUR*24L) 
#define SECS PER_YEAR (SECS_PER_DAY*365L) 


#define THIRTY_SECONDS (30L) 


#define ONE_MINUTE (1L*SECS PER MIN) 
#define TWO MINUTES (2L*SECS PER_MIN) 
#define FIVE MINUTES (5L*SECS_PER_MIN) 
#define TEN_MINUTES (10L*SECS PER_MIN) 
#define ONE_HOUR (1L*SECS_PER_HOUR) 


#ifdef CLOCK 
/* Timer2 is programmed to interrupt once every 1/60 second */ 
#define TICKS _PER_SECOND 60 


void interrupt far clock iisr (); 


DWORD get_elapsed_time (void) ; 
DWORD gerecame (void) ; 
void set_time(DWORD) ; 

#endif 


#ifndef CLOCK 
extern void interrupt far clock_isr(); 


extern DWORD get_elapsed_time (void) ; 

extern DWORD get_time(void) ; 

extern void set_time(DWORD) ; 
#endif 


PUREE TERE REE TEE EEE Eee 


= SCLECK.C 


* Real time clock for PANSAT 


* 


Petite Amateur Navy Satellite (PANSAT). 
Embedded ROM software. 


+ 


* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
* Jim A. Horning (Jah) 

* > 

* Revision History: 

* S2e=s2S22Ss2s22=222=2 

* Date Who What 

Ce cy nas i aes (fees cp as ce ees mee eee pm e wt ee ee ee ee ww He ow ee oe ee ee a eee ee ee ee ee re er ee eee 

* 8 March 1996 Jah Adoption from STAR's clock.c 
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#include “genders .h" 
#include "gen_apis.h" 


#define CLOGcK 
#include "clock.h" 
#undef CLOCK 


#include "edac.h" 


static DWORD sec_count = OL; /* total elapsed from time of startup */ 
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Static DWORD base time = OL; /* UTC offset uses sec_count */ 
DWORD feount = OL 
PAPAL REA RS SASK ERK ERE REREAEA AES ASE EEA RARE ERED OER 
2 evolock 1sr() 
x 
* This routine is invoked by Timer 2 (INT 13h) - the system clock tick 
* mechanism. tick_count is the total number of ticks since the real time 
* 
* 
* 


clock was initialized. 


REE REE EEE RRR RR RE Rk RRR RK / 


void interrupt far clock_isr() 


{ 


static unsigned int interval = 0; 


icount++; 
if (++interval == TICKS _PER_SECOND) 
{ 

interval = 0; 


sec_count++; 
/* edac_ram_wash(); */ 


/* Send non-specific EOI to Interrupt Controller */ 
outpw(OxFF22, 0x8000) ; 
} /* End of clock isr() */ 
JERSE LESRESE NER ERER ESE RES RERNRERRARRE RE RHEE ARR REESE REE SEER 
* DWORD get_elapsed_time (void) 
* 
* Return system up time in number of elapsed seconds. 
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DWORD get_elapsed_time (void) 


{ 


return (sec_count); 
} /* End of get_elapsed_time() */ 
[ee ee RHR EERE REE EEE REHEAT EEEEHEEEREEEEEEE ES 
* DWORD get_time (void) 
* 
* Return system time in number of elapsed seconds. Based on 1 Jan 1970. 
* 
keke ee kik tik kok kik tk ik tik / 


DWORD get_time(void) 


{ 


return(base_ time + sec_count) ; 


} /* End of get_time() */ 


[oT EEK KKK EEK RA RRR kk 
x 


void set_time (DWORD t) 


base_time maintains the date/time at which the clock was set to a specific 
time. Thus, base_time + sec_count is the current time. While sec_count 
maintains the elapsed time since startup. 


+ + 4© 4 


* 


joo kook kkk kkk tk kkk kk kek / 
void set time (DWORD t) 


base time = t= see cGunc; 


} /* End of set_time() */ 


End of clock.h, clock.c 
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cmd.h, cmd.c 
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* 


* €MD.H 


+ 


* Petite Amateur Navy Satellite (PANSAT). 
* Embedded ROM software. 


* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
* Jim A. Horning (Jah) 


* Revision History: 


WERE EAA AE AAA AEA AEA A EAA H EATER REET E EAE EEA AAA E eee eee eh / 


~~ 
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* 


= MDC 


¥ 
* 

Petite Amateur Navy Satellite (PANSAT). 
* Embedded ROM software. 


* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
* Jim A. Horning (Jah) 


* Revision History: 


* Date Who What 
CP SS peer ewr ewe eee ee ee ee ew ew ew ee Ke wee ee ee ew ee eH ee ee ee ee ee ee ee ewe eee 
* 19 Nov 1996 Jah Creation 
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#include "qensgers.h” 
#define CMD 
#include "cmd.h" 
#undef CMD 


typedef struct ack_packet 


{ 


BYTE cmd; 
BYTE action; 


} acl_packet_struct; 
typedef struct cmd_packet 


{ 


BYTE cmd; 


/* Upcoming Command Types ‘from grounstation to spacecraft) */ 
#define CMD_CONFIRM OxSS 


#define CMD CONTROL Ox5SA 
#define CMD EXEC CxAS 
#define CMD _GETP CAA 
#define CMD LOAD Cxbe 
#define CMD_MAP Cx69 
#define CMD _RESE7 Cx9é 
f#aenine CMD SETP Cx 9S 
#define CMD_STATUS cx00 
#define CMD SLOG CLEAP (xCF 
#define CMD_SLOG KEA~ CxFO 
#define CMD_VERIFY CxFF 
#define CMD_UNKNOWN OxSé /* not an actual command, but used in the 


* spacecraft ACK packet to identify the 
* type of command that was received. 


<7 


/* Downgoing Action Types (from spacecraft to groundstation) */ 
#define ACT_CONFIRM 0x55 


#define ACT_NONE OxAA 
#define ACT_REPEAT 0x66 
#define ACT_UNKNOWN 0x99 
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ee ee ee ee EE ee ee ek ee eee eee 
* 
* cmd examine () 
x 
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cmd_examine () 


{ 


switch (in_packet ->cmd) 
case CMD CONFIRM: 
ack_packet->cmd = CMD_CONFIRM; 
ack_packet->action = ACT_CONFIRM; 
break; 


case CMD CONTROL: 
ack_packet->cmd = CMD CONTROL; 
ack_packet->action = ACT _CONFIRM; 
break; 


case CMD EXEC: 
ack_packet->cmd = CMD_EXEC; 
ack_packet->action = ACT_CONFIRM; 
break; 


case CMD GETP: 
ack_packet->cmd = CMD _GETP; 
ack_packet->action = ACT_NONE; 
break; 


case CMD LOAD: 
ack_packet->cmd = CMD _LOAD; 
ack_packet->action = ACT_NONE; 
break; 


case CMD MAP: 
ack_packet->cmd = CMD_MAP; 
ack_packet->action = ACT_NONE; 
break; 


case CMD RESET: 
ack_packet->cmd = CMD RESET; 
ack_packet->action = ACT_CONFIRM; 
break; 


case CMD SETP: 
ack_packet->cmd = CMD SETP; 
ack_packet->action = ACT_CONFIRM; 
break; 


case CMD STATUS: 
ack_packet->cmd = CMD STATUS; 
ack_packet->action = ACT_NONE; 
/* append telemetry */ 
break; 


case CMD __SLOG_CLEAR: 
ack_packet->cmd = CMD SLOG CLEAR; 
ack_packet->action = ACT_CONFIRM; 
/* delete all stored telemetry */ 
break; 


case CMD_SLOG_READ: 
ack_packet->cmd = CMD _SLOG_READ; 
ack_packet->action = ACT_NONE; 
/* append first record of stored telemetry */ 
break; 


case CMD VERIFY: 
ack_packet->cmd = CMD VERIFY; 


ack_packet->action ACT_NONE; 
ack_packet->action = ACT_REPEAT; 
break; 


default: /* UNKNOWN */ 
/* Valid packet (CRC passed), but command code is not valid */ 
ack_packet->cmd = CMD_UNKNOWN; 
ack_packet->action = ACT_UNKNOWN; 
break; 
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/* Place the command in the history buffer */ 


/* Now, send the packet to the packet driver */ 
scc_send_packet (out_packet) ; 


} /* End of cmd_examine() */ 


End of cmd.h, cmd.c 
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dcs.h, dcs.c 


[/eekekkeekeekee eke eek eee keke eee eae eee kee keke keke eet 


Bes; A 


Petite Amateur Navy Satellite (PANSAT). 

Embedded ROM software. 

Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
Jim A. Horning (Jah) 


Revision History: 


ee 
ee 


2 Nov 1993 Jah Creation 


kee kkkktkk eke tee kkkkk eke kkk eke kee keke kkk kk kkk kik ek / 


#ifdef Dcs 


#tendif 


#ifndef DCS 


extern int debug; 
extern int bem_on; 


#tendif 


[eek kk keke etek kkk keke kkk kkk ket keke tek kkk kkk kik 


DCS.C 


Petite Amateur Navy Satellite (PANSAT) . 
Embedded ROM software. 


Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
Jim A. Horning (Jah) 


Revision History: 


2 Nov 1996 Jah Creation 


#include <stdlib.h> 
#include "gen _defs.h" 
#define bcs 

/* #include "dacs. .h* */ 
#undef pcs 
#include "ad.h" 
#include ‘bem. n= 
#include "clock.h? 
#include “eps.h° 
#include "pep en” 
#include forint -h° 
#include “sec. h* 
#include Stpir he 
#include "terms .h° 
#include “tlm h= 


kekkkkkek tthe ke keke keke kee eee keke ekeke kkk eke keke kek keke kek kkk kkk / 


/* Function prototypes * 


Static void 


boc: loader (void) ; 


Static void boot loader setup (void) ; 


Static void 
Static void 
Static void 
Static int 


infc_screentvoid) ; 
6tpi only(void); 
Btpi_only_setup (void) ; 
uBse_stpi (int *check) ; 


int debug = FALSE; 
int bem_on = TRUE; 


[eee ETT ee eek eee eee eee KEK KEKE 


* 


* 


voidmain (void) 
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+ + + 


This is the first routine of the C runtime which is called by the startup 
(assembler) module. This routine is responsible for determining if the 
Boot Loader should begin autonomous operations of the spacecraft or if 
the STPI is being used and control should be passed to the monitor for 
ground-like operations. 


To accomplish this, the PANSAT banner is sent out the asynch serial port 
in the event that a ground computer is attached and will send a response 
back to the spacecraft. Then this module waits upto 30 seconds for a 
response via the ground computer. If there is one, control is transferred 
to the STPI module, by-passing the Boot Loader. Otherwise, control is 
transferred to the Boot Loader which begins autonomous operation of the 
spacecraft. 


A two way flag is used to check for STPI use (and disabling of the Boot 
Loader) so that it is unlikely that just a single flag gets its value 
changed accidentally. 


KECteeeeeeeeceeeeeeeeeeeseeeeeeeeeeeeeeeerereerekrekeekeeeeeeeekeeerererekene | 


voidmain(void) 


{ 


} 


int stpi_on = FALSE; 
int Stpaecheck = 0; 


/* Send PANSAT banner to the STPI */ 
intosscreen()’; 


/* Jah - check time */ 
while (get_elapsed_time() < 5) 
{ 
Stpi_on = use_stpi (&stpi_check) ; 
if (stpi_on && (stpi_check == 0xS5SA)) 
{ 
Stpi_only(); 
/* STPI Monitor to be used, ground station computer is ready . */ 


/* If STPI Monitor was being used but control is transferred here, 
* then the command to begin the Boot Loader was given. Thus, let 
the flow of control go to the WHILE loop below which starts the 

* Boot Loader. 


/* Spacecraft is to run autonomously */ 
while (TRUE) 


{ 


boot_loader () ; 


/* The Boot Loader subroutine will run forever unless a command is 

* given to disable the Boot Loader, in which case control will be 
transferred to the statements below. Thus, assume the STPI Monitor 
is to be run. 


a7 


/* STPI Monitor */ 
Stpivoniy(); 


/* The STPI Monitor subroutine will run forever unless a command is 
* given to begin the Boot Loader. In this case, transfer of 
control will be given back to this WHILE loop, a new iteration 
* of the loop will begin, and automatically the Boot Loader 
* will be called. 


} 


/* End of main() */ 


PRESET EE EEE EERE EEE EEE EE EERE EEE EE EEE ERE EEEERE KEE KKK EET EEEEES 


* 


* 


* 


voidboot_loader () 


eee eee cece ee eee ee eee kee eee eee eee eee eee eee eee eee et / 


void boot_loader (void) 


{ 


Static int run_boot_loader = TRUE; 


/* Setup */ 
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/* 


} 


boot _loader_setup(); */ 


while (run_boot_loader) 
. check _tlm(); 
bem_main() ; 
/* RF Listen */ 
/* Check/Process command (via RF link) */ 
/* RF Transmit */ 
monitor (); 


/* Scenarios */ 


/* Reset Watchdog timer */ 


} 


/* End of boot _loader() */ 


/e teeta tee eee etek keke etetet etek kittie trite ttt 


* 


* 


voidboot_loader_setup() 


* 
eek ekk eke kee keke eke tke ket tkitetk kth tk / 


void boot_loader_setup (void) 


{ 


} 


ad init(); 


if (msu_check_flash_tlm() == ERROR) 


{ 
} 


while (!samples_ready) 


/* There was an error trying to locate an empty record */ 


° 
‘ 


/* make sure BCM charge state variables are setup correctly */ 
bem_main() ; : 


/* setup time to listen timer */ 


/* setup communications */ 


/* End of boot_loader_setup() */ 


PERSE Ee EEE EK aE AK 
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* 


® 


info_screen() 


eeeteeerereekkeee eke kt tkektkee eee kee eek keke eee eect keeet etek kkk eke / 


void 


{ 


} 


info_screen (void) 


home {) ; 
Geir) ; 


dprint("*\nPANSAT System Controller: "); 

Gprint("%s\n", _ DATE); 

dprint ("80C186 running at 7.3728 MHz\n"); 

dprint("ROM : FO00:0 - FOOO:FFFF (64 k)\n"); 

dprint ("RAM : 0000:0 - 7000:FFFF (512 k)\n"); 

G@print("SCCA: (Cmd 2, Data = 6) Synchronous\n") ; 

dprint("SCCB: (Cmd 0, Data = 4) UART at 19.2 kbits/sec, 8N1\n"); 


serial_out(CTRL_W) ; 


/* End of info_screen() */ 


PRR EEA 


¥* 


* 


* 


voidstpi_only() 


wettete teeter eee keke eke ee kee eee eee kee e kee eae eee keke keke keke / 
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void stpi_only(void) 


{ 


static int run_stpi_only = TRUE; 


while (run_stpi_only) 


{ 


check _tlm(); 


monitor () ; 


} 


} /* End of stpi_only() */ 


/eeeteeteretrrrrrrreeee tr re rrreekeererrrre rarer te eee ee errr keke eee ee ees 
x 
* voidstpi_only setup() 
a = 
Sererereseeseeerssesskeeererekeseeeretereeeerseeretereereeerereertrereeereeeeteeetst / 
void stpi_only setup (void) 


{ 


7* Bem off (); */ 


pcb write(EPSO, 0, 0); /* Battery A control, TMUXA, HEATA */ 
peb write(EPSO, 2, 0); /* Other subsystem power */ 
peb_write(EPS1, 2, 0); /* Battery B control */ 


} /* End of stpi_only_setup() */ 


PReeA RAAT ARATE TAA TATRA AKER EERE 
* int use stpi() 


* Monitor the STPI for the sequence of characters that spell PANSAT. If 
these are sensed in this order, then it is assumed that a ground computer 
is attached to PANSAT and PANSAT is to go into the STPI monitor mode. 


This routine is called repetitively during the first 30 seconds and thus 
* keeps a record of any received characters from the SPTI and when six are 
* received does a compare to the character sequence "PANSAT". 


terete eerrrrreeeereeeeeeereeeeeeekteeereeereerereeterrereereeteeteeereeereres / 


Pie use stpi (int *check) 


{ 


Static char check_chars [6]; /* 6 chars for PANSAT */ 
static int c= 0; /* index into check_chars{] */ 


if (is_serial_in()) 


check_chars [c++] = serial_in(); 
1£ (c ==%G) 
{ 
if (strncmp(check_chars, "PANSAT", 6) == 0) 


{ 


*check = 0xSA; 
serial out (0xSA) ; 
return (TRUE) ; 


} 


return (FALSE) ; 


} /* End of use_stpi() */ 


End of dcs.h, dcs.c 
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edac.h, edac.c 


[RRR EERE EERE AREER ETERS EERE ERE EERE AEE EUEEEHHHEEHEREEE 


* 


*  EDAC.H 

* 

* Error Detection And Correction routines. 

* 

* Petite Amateur Navy Satellite (PANSAT). 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
* Jim A. Horning (Jah) 

* 

* 

* Revision History: 

* — i 

* 

~~ Date Who What 

Oe ee nc ee ee ee eee eee poe e- mK tee ee em wm He HH eH ee ee ee eH ee ee eee ee et em et er emer rn reea ee 
* 21 August 1996 Jah Creation 

* 

* 


tee eee aaa ee / 


typedef struct edac stats 


{ 
BYTE huge * ram_wash_ptr; 
DWORD soft_errors; 
DWORD ram_wash_cycles; 


} edac_stats_ struct; 


#ifdef EDAC 


voidedac_get_stats(edac_stats_Struct * stats); 
void interrupt far edac_hard isr(); 
voldinterrupt far edac soft isr(); 

void ram_wash (void) ; 


#tendif 


#ifndef EDAC 


extern void edac get _statsi(edac stats struct * Stats) ; 
exter void ~inteérrupt ifar edac_ hard isr(); 
extern void interrupt far edac soft _isr{); 
extern void ram_wash (void) ; 
#endif 


[OR tt EEE 


EDAC.C 


* 
* 
* Error Detection And Correction routines. 
* 


td 


Petite Amateur Navy Satellite (PANSAT). 


* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
* Jim A. Horning (Jah) 

* 

* 

* Revision History: 

* Ses Ssessesoeorsere=e= 

* “Bare Who What 

(2. SS oe oo ooo pee peer eH me em ee Ke KH HH ee ee ee ee ee ee eee em em ee eH ee et ee te eee 
* 21 August 1996 Jah Creation 

* 


SERRATE eae ek | 


#include "gen defs.h" 
#define EDAC 
#include "edac.h" 
#undef EDAC 


#include "int .h" 
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#define DOCON OxFFOO 


#define DMAO_ OFF OxFFFF 
#define DMA1_OFF OxFFFF 
#define RAM_WASH_COUNT 64 /* 64 words */ 


/* This marks the location of the RAM wash in Static RAM. It is updated 
* after ram_wash() finishes an interval of washing so that it marks 
* where next to begin washing the next time ram_wash() is invoked. 


=f 


Static BYTE huge * ram_wash_ptr = (BYTE huge *)0; 
Static DWORD edac_hard_err = OL; 
Static DWORD edac _soft_err = 0L; 


Static DWORD ram_wash_cycles = OL; 


LRAT TEAR AAA ETAT RATATAT AAA 
. z 
* voidedac get stats () 


* 


* Returns the information about the EDAC. The current RAM Wash pointer, 


* the number of soft errors. 
Sd 


ererrrereterateereeretedeteretereeeeetereeteeerteteereteeteteeeeeereaeeteeeeaeae / 


voidedac_ get _stats(edac_stats struct * stats) 


{ 


stats->ram_wash_ptr = ram_wash_ptr; 
stats->soft errors = edac_soft_err; 
stats->ram_wash_cycles = ram_wash_cycles; 


} /* End of edac_get_stats() */ 


/teeeeeeeeeeee eee teers eee errr tate teeter eee eee eee ee eee reer eee eee 


* 


. edac_hard_isr() 
* 


tetera eee eee eee eee eee eee ee / 


void interrupt far edac_hard_isr() 


{ 


/* Send specific EOI to PIC */ 
outpw(INT_EOI, 0x000E); /* Interrupt OxE (14) - INT 2 */ 


} /* End of edac_hard_isr() +*/ 


/ARAeee Hee eee eee etet treet teeter eee ere tetra terre errr rare ekekeeeeteeeetreeeeeees 


* 


* edac_soft_isr() 


* 


Seeeeee eee eee eee eee eee ere ee eee eee eee eee eee eee aera ee / 


void interrupt far edac_soft_isr() 


{ 


edac soft_err++; 


/* Clear the EDAC error */ 
pcb _portc(2, RESET); 
pepepoerte(2, SET) ; 


/* Send specific EOI to PIC */ 
outpw(INT_EOI, OxO00F) ; /* Intermipt Oxk (25) =sINT 3 */ 


} /* End of edac_soft_isr() */ 


/R eee eee erate tee et erereaeererarrrearreeeer eee et eeer errr errrereeerrrerkteatet 


* 


* void edac_ram_wash (void) 
t 
* Washes a 128 byte contiguous block of SRAM. Uses ram_wash ptr as the 


* starting address. Updates ram_wash_ptr upon terminating. 
+t 


CRAKEAR ERRATA TATA AAA AAA AAA / 


void edac_ram_wash (void) 


{ 


asm 


7 


pushds 


lds 
mov 
eld 


mov 
in 

mov 
and 
out 


Ze 
inc 
in 

mov 
and 
out 


eli 
rep 
sti 


mov 
out 
dec 
dec 
mov 
out 


pop 
} 


ram_wash_ ptr += 128; 


Si, DWORD PTR ram_wash_ptr 
cx, RAM WASH COUNT 

dx, DOCON 

ax, ax 

bx, ax i 
ax, DMAO OFF 

Gx. ax i 
dx 

dx 

ax, dx 

di, ax i 
ax, DMAl OFF 

ax, ax i 
lodsw 

ax, Gk ; 
dadx, ax i 
ax 

dx 

ax, bx i 
ax, ax ; 
ds 


save a copy of DMAO config 


DMA channel 0 disabled 


Save a copy of DMA1 config 


DMA channel 1 disabled 


DMA1 config. 
DMA channel 1 enabled 


DMAO config. 
DMA channel 0 enabled 


/* 64 words = 128 bytes were washed */ 


if (ram_wash_ptr > (BYTE huge *) 0x7FFFFFFF) 


{ 


ram_wash_ ptr 


= (BYTE huge *)0; 


ram_wash_cycles++; 


} 


} /* End of edac_ram_wash() */ 


End of edac.h, edac.c 
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eps.h, eps.c 
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CEES. 


* Defines for the RF unit interface routines. 


* 


Petite Amateur Navy Satellite (PANSAT). 
Embedded ROM software. 


* 


* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
* Jim A. Horning (Jah) 

* 

* Revision History: 

* Seesssssseeeesre=e== 

* Date Who What 

tt eases eee teow ean eee e prerer mere ere er we er er mem em et em emt ee eH ee me em ee ee me ee meee ee eee ee ee eee 
Secor Oct 1996 Jah Creation 


* = 


ee ee ee SS STATS TTA TEA ET ETT TE TSS 


/* Power control defines */ 
#define PWR_TMUXA 0 
#define PWR_MSA 
#define PWR_HEATA 
#define PWR_HEATB 
#define PWR_RF 
#define PWR_TMUXBS 
#define PWR_MSB 
#define PWR_ANTREL 


PW Ne 


Wan 


/* Battery Control defines *t/ 
#define BAT _ONLINE 

#define BAT_OFFLINE 

#define BAT_TRICKLE_ON 
#define BAT _TRICKLE OFF 
#define BAT_CHARGE_ON 
#define BAT_CHARGE OFF 
#define BAT DISCHARGE ON 7 
#define BAT DISCHARGE OFFS8 


AW PWN bP 


#ifdef EPS 
#define POWER_ON_DELAY  0x1FFF 


voideps batts_off (int); 

voideps global_off (void) ; 

void Epsesct POrt2(BYTE value) ; 
BYTEeps_get_port2 (void) ; 
BYTEeps_get_battery(void) ; 


int eps set_battery(int battery, int mode); 
WORD eps_get_power (void) ; 
void eps_set_power(int device, int mode) ; 


voideps_ reset _wdog (void) ; 


#endif 


#ifndef EPS 


extern void epsebacts Off (int); 
extern void eps _global_off (void); 
extern void eps_set_port2(BYTE value) ; 
extern BYTE eps_get_port2 (void) ; 
extern BYTE eps_get_battery(void) ; 
excern int eps_set_battery({int battery, int mode) ; 
extern WORD eps_get_power (void) ; 
extern void eps_set_power(int device, int mode) ; 
extern void eps_reset_wdog (void) ; 
#endif 
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* EPS.C 

«x 

- Intertace routines for the EPS unit - 

* 

* Petite Amateur Navy Satellite (PANSAT). 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
* Jim A. Horning (Jah) 

* 

* Revision History: 

x ee ee ee 

= Date Who What 

WG specs scoooaeqcccs Amotseds $m ea ae ew we wm wm wn a a ee ew oa ne we 

* 30 Oct 1996 Jah Creation 

* 6 Dec 1996 Jah Changed port settings per Ron's EPS modifications 
* 25 Feb 1997 Jah Keep Port 2, Bit 1 always on (the current MUX enable) 
*« 

x 


#include "gen defs.h" 
#define EPS 
#include "eps.h" 
#undef EPS 


#include "bcem.h" 
#include "pcb.h" 


int check_bat(int battery, 


static BYTE port0 = 0; 
static BYTE port2 = 0x01; 
Static BYTE porté = 0; 


Ree REE REE ER EEE EEE EEE EERE EEK KARA RKRRRRKK AKER RR RK ee / 


BYTE mask) ; 


/* Current MUX enabled */ 


[KT TKK EERE REE EEE EERE EKER EEE 


eps_batts_off () 


*« 
* 
* Power OFF all battery controls, 
x 
x 


EXCEPT the battery ONLINE controls. 


kee KKKKKEKKK RARER RRR KKK RAR Re / 


voideps batts off (int online) 


{ 


if (online == BAT_A) 

{ 
portoO &= OxO0F; /* ALL Battery A controls to be turned OFF */ 
porto |= 0x20; /* Battery A ONLINE to be turned ON */ 
DOrteGe = 0; /* ALL Battery B controls to be turned OFF */ 
/* Write to portO FIRST to insure there remains a battery online */ 
pcb write (EPSO, 0, portdO) ; 
pcb write(EPS1, 2, porté); 

} 

else if (online == BAT _B) 


{ 


/* Turn OFF All battery 


portO &= Ox0F; 
port6é = 0x20; 


/* Write to Porté FIRST 


pcb _write(EPS1, 


} 


controls to A */ 
ALL battery A controls to be turned OFF */ 
Battery B controls to be turned OFF, except ONLINE = 


/* 


/* ON */ 


to insure there remains a battery online */ 


2, porté); 
pcb_write(EPSO, 0, 


porto) ; 


} /* End of eps_batts_off() */ 


[RRR KK KR ERK REE AKEAAK RRA 


eps_ global off () 


ONLINE controls. 


* 


Power OFF all subsystems, 


and all battery controls, EXCEPT the battery 


REE EEEEEE EERE EERE ERE EE EEE ERE EEEERER EERE EEEREEEEREEEEEEE EERE REKEREEER EEE / 


void 


eps_global_off (void) 
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porto &= 0x20; 
pebawrite(EPSO, 0, porto); /* All OFF except the online (if it is on) */ 


port2 = 0x01; 
pcb_write (EPsO, 2, port2); /* Other subsystem power */ 


port6 &= 0x20; 
peb_ write(EPS1, 2, porté); /* Battery B control OFF except the online (if it is on) */ 


} /* End of eps global_off() */ 


PRRREC ERATE REET EE KEKE EERE KERR 


® 


* eps_set_port2() 


® 


* Power ON or OFF a subsystem, leaving others undisturbed. 


® 


wexxveeecerseeeteeereeeeeerxeseeeseeeeeeeeseereereeeeereretesereecerkeraeetaeres / 


void eps_set_port2(BYTE value) 


{ 


port2 = value | 0x01; /* Keep Current MUX enabled */ 
peb _write(EPSO, 2, port2); 


} /* End of eps_set_port2() */ 


PRPC T RARER EEE EERE EE EEE EEE EE EE EERE RE 
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= eps get port2() 


® 


* Power ON or OFF a subsystem, leaving others undisturbed. 


RREKSKECSRAA ESAS EA SE Tee Tee EKA KARAS eATEREKEREKEEeA REESE KEKE / 


BYTEeps get_port2 (void) 


{ 


return (port2) ; 


} /* End of eps get port2() */ 


PRATER AERA AE EEE R eee TEETER EEE EAE 


® 


2 eps get _power() 
x 


* Get power ON or OFF status for the subsystems. 
*« 


keerkeeteeeeteoxetevervetrestrererexretrketeeeettttckkeeeer keer tet kkk eee / 


WORD eps_get_power (void) 


{ 
/* LSB is power bits of Port 0, MSB is power bits of Port 2 
* Other bits pertaining to battery control, unused bits, or the 
* S/P current inhibit and strobe are maksed off to 0. 


*/ 
return( (((WORD) port? & Ox007C) << 8) | ((WORD)portO & Ox000D)); 


} /* End of eps_get_power() */ 


fRKKEKAHTAEET ECCS See EE HEE REESE EEE HEAR AKER KKK e 


* 


* eps set _power ('! 
x 
* Power ON or OFF a sbupsystem, leaving others undisturbed. 


Sd 


kekttkkekkkeveeseressseveseresexecererkkeerkekeeeeeeeeeeeeeeeee ee eee eee tkae tik / 


void eps_set_power(int select, int mode) 
register BYTE temp, mask; 
WORD delay; 


/* This table contains bit positions in EPS ports 0 & 2 for power control 
* bits for the subsystems, heaters, and antenna release. 
os 

static WORD power table[} = {4, 8, 1, 0x40, 0x20, 0x10, 8, 4}; 


switch(select) 
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/* Port 0 Power Controls */ 
case PWR_TMUXA: 

case PWR_MSA: 

case PWR_HEATA: 


if (mode == ON} 

porto |= power _table[select] ; 
else if (mode == OFF) 

portO &= ~power_table[select] ; 
else 

return; 
peb write(EPSO, 0, portd); 
break ; 


/* Port 2 Power Controls */ 
case PWR_HEATB: 

case PWR_RF: 

case PWR_TMUXB: 

case PWR_MSB: 

case PWR_ANTREL: 


if (mode == ON) 
port2 |= power_table[select]; 
else if (mode == OFF) 
port2 &= ~power table[select] ; 
else 
return; 
pebawra te EPSO;, 2, port2); 
break; 
default: 
break ; 
} 
if (mode == ON) 


for (delay = 0; delay < POWER_ON_DELAY; delay++) 


? 


} /* End of eps _set_power() */ 


[eee EEE RE ko kook kk nik kkk kkk nk kk 
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* veps_get_battery() 


* 


tats ek rkor kori or koi ikke kk kkk / 


BYTE eps_get_battery (void) 

{ 
/* MSnibble is Battery A contorl bits of Port 0, LSnibble is Battery B 
* control bits of Port 6. Other bits pertaining to battery control, 
* unused, or the S/P current inhibit and strobe are maksed off to 0. 


7 
return(((port6 & OxF0)>>4) | (portO & OxFO)); 


} /* End of epe get battery() */ 


[RRR EERE RR a eK KEE 
* 


“reps SetuEbacce:ry() 


* 


wee eee Rok kk kok kk ik i ok ok koko kok tok ok ik kk / 


#define MASK_AND 1 
#define MASK_OR 2 


int eps _set_battery(int battery, int mode) 


{ 


register BYTE temp, mask; 


switch (mode) 


{ 
case BAT _CHARGE ON: 
temp = 0x80; mask = MASK_OR; break; 
case BAT CHARGE OFF: 
temp = ~0x80; mask = MASK_AND; break; 


case BAT_DISCHARGE ON: 

temp = 0x40; mask = MASK_OR; break; 
case BAT_DISCHARGE OFF: 

temp = ~0x40; mask = MASK_AND; break; 
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case BAT_ONLINE: 

temp = 0x20; mask = MASK OR; break; 
case BAT OFFLINE: 

temp = ~0x20; mask = MASK_AND; break; 


case BAT _TRICKLE ON: 
temp = 0x10; mask = MASK OR; break; 
case BAT_TRICKLE OFF: 


temp = -0x10; mask = MASK_AND; break; 
default: 
break; 
} 
Switch (battery) 


{ 


} 


case BAT_A: 


if ((mask == MASK_OR) && check_bat(BAT_A, temp) ) 
portO |= temp; 

elsSe if (mask == MASK_AND) 
porto &= temp; 

else 


{ 


dprint("EPS: battery control command error - state not allowed\n"); 


return (ERROR) ; 
} 
peb_write(EPSO, 0, port0); 
break; 
case BAT2e: 
if ((mask == MASK OR) && check_bat (BAT_B, temp) ) 
porté |= temp; 


else if (mask == MASK AND) 
port6é &= temp; 
else 


{ 


dprint("EPS: battery control command error - state not allowed)\n") ; 
return (ERROR) ; 


} 
peb_write(EPSl1, 2, porté); 
break; 


default: 
break; 


return (NO_ERROR) ; 


} /* End of eps_set_battery() */ 


fete ereeeeeeeteeererekeee eer eee eee eke eek eee eee KAKA 


* 


¥ 
¥ 
© 


check_bat () 


Check to make sure that the new battery control desired to be turned 


* on does NOT conflict with other settings that are already on. 


© 
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int check_bat(int battery, BYTE mask) 


{ 
/* 
/* 


* 


* 
x 
ad 


* 


+ ¢ * + © 


+ 


+ * + &§ *+ + + & 


Allowed battery ON setting compared to existing settings */ 
This table is read with the row being the battery ON setting 
that is desired. The first four entries are for battery A, the 
following four are for battery B. The columns represent 
settings already set ON for battery control; again, the first four 
are for battery A, the remaining for for battery B. 
If there is a 1, then the new setting is NOT allowed. A zero indicates 
the new setting is allowed. 

B Trickle <----+--<---2982-----2e"%--- + 

B Online --------------------- + | 

B Discharge ------------------ + | | 

B Charge  --------------- + | | | 

A Trickle  ------------ + | | | | 


A Online --------- +i te | 


A Discharge ------ role: ale | | 


= 


* AwCharge ---+ | {| | f}| | | 4 
* VoVOV Vow vo view 
* 
* (hex) 80 40 20 10 08 04 O02 O01 
*/ 
Static WORD bat_table(8]= { 
/* A Charge */0x59, 
/* A Discharge */0xB4, 
/* A Online */0x40, 
/* A Trickle */0xC9, 
/* B Charge */0x95, 
/* B Discharge */0x4B, 
/* B Online */0x04, 
/* B Trickle */0x9C}; 
int i; 
switch (mask) 


{ 


case 0x10: 


/* Trickle */ 


1 = 3; break; 
case 0x20: /* Online */ 
1 = 2; break; 
case 0x40: /* Discharge */ 
i= 1; break; 
case 0x80: /* Charge */ 
1 = 0; break; 


} /* End of SWITCH */ 


if (battery == BAT_B) 
1 += 4; 


/* i is the index into the table */ 
/* The table ANDed with the current information regarding which battery 
* switches are set (ON) are used to see if the new ON request is 
* allowed. 
*/ 
if (bat_table[i] & eps_get_battery/()) 
return (FALSE) ; /* not allowed */ 
else 
return (TRUE) ; 


} /* End of check_bat() */ 


[RRR 


eps_reset_wdog() 


* 
* 
* Toggle the EPS Watch Dog timer so that the EPS will not reset the current 
* active System Controller. This is done using Port 4 of the EPS. 

* 

* 
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voideps_reset_wdog (void) 


{ 


WORDi; 


pce Wwrite(EPSt, 0. 1); 


for (i = 0; i « OxiFFF, i-«¢) 


’ 


pcb_write(EPS1i, C, 0); 


} /* End of eps_reset wdogi) */ 


End of eps.h, eps.c 
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gen_apis.h, gen_apis.c 


f/eeeeeeeeeretererkekeketer tek eek ek 


* 


* GEN _APIS.H 


Include file for general functions. 


+ he 


® 


Petite Amateur Navy Satellite (PANSAT). 
* Embedded ROM software. 


* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
* Jim A. Horning (Jah) 


* Revision History: 

*« Sessa esrereerere25eFS= 

* Date Who What 
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* 5 Sept 1996- Jah Creation 
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#ifdef GEN APIS 
WORDerc_calc(WORD crc, BYTE data) ; 
WORD check_cre(void *ptr, int size); 
WORD disable_ints (void) ; 
voidenable_ ints (void) ; 
WORDprepare _cre(void *ptr, int size); 


tHendif 


/* prototypes for modules other than msu.c */ 
#ifndef GEN APIS 
ExternwOnD cre cale(WORD crc, BYTE data) ; 
excetneWORD Check crc(void *ptr, int size); 
extern WORD disable_ints (void) ; 
extern void enable _ ints(void) ; 
extern WORD prepare _crc(void tptr, int size); 


extern const WORDcrc_table(]; 


tendif 


f/eeeeeeeeetererekekektrrketekereree eter kerrerkkeekeeketekeke keke kkk 
* GEN_APIS.C 
* General functions available to .c files.. 
* Petite Amateur Navy Satellite (PANSAT). 
* Embedded ROM software. 
* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 


* Jim A. Horning (Jah) 


* Revision History: 


® Berersssseseseeeeese=== 

* Date Who What 

LA Ee Se Se See eee ---- foe ee WH Ke He ee a ee ee ee ee ee ee eee ee ee ee ee ee 
* 21 Oct 1996 Jah Creation 
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#include gen dets.h" 

#define GEN_APIS 
#include "gen _apis.h" 

#fundef GEN_APIS 


/* CRC lookup table for all 256 CRC combinations from an 8-bit value */ 

#define CRC_TABLE_LEN 256 

Static const WORD crc_table[CRC_TABLE_LEN) = 

{ 
Ox0000, 0x1189, 0x2312, 0x329B, 0x4624, OxS7AD, 0x6536, OXx74BF, 
0Ox8C48, Ox9DCl, OxAFSA, OxBED3, OxCA6C, OxDBES, OxE97E, OxF8F7, 
Ox1891, 0x0918, 0x3B83, Ox2A0A, OxSEBS, Ox4F3C, Ox7DA7, Ox6C2E, 
Ox94D9, 0x8550, OxB7CB, OxA642, OxD2FD, 0xC374, OxFIEF, OxE066, 
0x3122, Ox20AB, 0x1230, 0x03B9, 0x7706, Ox668F, 0x5414, 0x459D, 
OxBD6A, OxACE3, Ox9E78, Ox8FF1, OxFB4E, OxEAC7, OxD85C, OxC9D5, 
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}; 


0x29B3, 
OxASFB, 
0x6244, 
OxXEEOC, 
Ox7ADS, 
OxF69D, 
0x5366, 
OxDF2E, 
Ox4BF7, 
OxC7BF, 
OxC488, 
0x48C0, 
0xDC19, 
Ox505 1), 
OxFSAA, 
Ox79E2, 
OxED3B, 
0x6173, 
OxA6CC, 
Ox2A84, 
QOxBESD, 
OxsS 2057 
Ox97EE, 
Ox1BA6, 
Ox8F7F, 
0x0337, 


0x383A, 
0xB472, 
Ox73CD, 
OxFF85, 
Ox6B5C, 
OxE714, 
Ox42EF, 
OxCEA7, 
OxSA7E, 
OxD636, 
UxDS01, 
0x5949, 
OxCD90, 
0x41D8, 
OxE423, 
Ox686B, 
OxFCB2, 
Ox70FA, 
0xB745, 
Ox3BO0D, 
OxAFD4, 
0x239C, 
Ox8667, 
Ox0A2F, 
Ox9EF6, 
Ox12BE, 


Ox0AA1, 
Ox86E9, 
0x4156, 
OxCDI1E, 
OxS9C7, 
OxDS8F, 
0x7074, 
OXFESC, 
Ox68ES, 
OxE4AD, 
OxE79A, 
Ox6BD2, 
OxFFOB, 
0x7343, 
OxD6B8, 
OxSAFO, 
OxCE29, 
0x4261, 
Ox85DE, 
0x0996, 
Ox9D4F, 
Ox1107, 
OxB4FC, 
Ox38B4, 
OxAC6D, 
0x2025, 


Ox1B28, 
0x9760, 
OxSODF, 
OxDC97, 
Ox484E, 
OxC406, 
Ox61FD, 
OxEDBS, 
Ox796C, 
OxF524, 
OxF613, 
Ox7A5B, 
OxEE82, 
Ox62CA, 
OxG7s1, 
0x4B79, 
OxDFAO, 
0x53E8, 
0x9457, 
Ox181F, 
Ox8CCE, 
Ox008E, 
OxAS 7S, 
0x293D, 
OxBDE4, 
Ox31AC, 


Ox6F97, 
OXE3DF, 
0x2460, 
OxA828, 
Ox3CF1, 
OxBOB9, 
0x1542, 
Ox990A, 
O0x0DD3, 
0x819B, 
Ox82AC, 
Ox0EE4, 
Ox9A3D, 
Oxle75, 
OxB38E, 
Ox3FC6, 
OxABIF, 
OxZ2757, 
OxEOES, 
Ox6CA0, 
OxF879, 
0x7431, 
OxXD1CA, 
0x5D82, 
OxC95B, 
0x4513, 


Ox7E1E, 
OxF256, 
Ox35E9, 
OxB9A1, 
Ox2D78, 
0xA130, 
Ox04CB, 
0x8883, 
Ox1CSA, 
0x9012, 
0x9325, 
Ox1F6D, 
Ox8BB4, 
OxO7FC, 
0xA207, 
Ox2E4F, 
OxBA96, 
Ox36DE, 
OxF161, 
0x7D23, 
OxE9FO, 
Ox65B8, 
0xC043, 
Ox4COB, 
OxD8D2, 
0x549A, 


0x4C85, 
OxCOCD, 
0x0772, 
Ox8B3A, 
Ox1FE3, 
Ox93AB, 
0x3650, 
OxBA18, 
Ox2EC1, 
OxA289, 
OxA1BE, 
Ox2DF6, 
OxB92F, 
0x3567, 
0x909C, 
0x1CD4, 
0x880D, 
0x0445, 
OxC3FA, 
Ox4FB2, 
OxDB6B, 
0x5723, 
OxF2D8, 
Ox7E90, 
OxEA4S, 
0xé6601, 


Ox5D0C, 
0xD144, 
OxX16FB, 
Ox9AB3, 
OxOE6A, 
0x8222, 
Ox27D9, 
OxAB91, 
Ox3F48, 
0xB300, 
0xB037, 
OxXsC7F, 
OxA8AG, 
Ox24EE, 
0x8115, 
Ox0DSD, 
0x9984, 
Ox SCC. 
OxDZ 72, 
OxSE3B, 
OxCAE2, 
Ox46AA, 
OxE351, 
Ox6F19, 
OxFBCO, 
0x7788 


Static WORD ints_disabled = FALSE; 


[RRR AEE KK ee 


WORDcrec_calc(WORD crc, BYTE data) 


¥ 
* 
* Takes a CRC and a new data byte and computes a new CRC. 
* 
* 
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WORDcrc_calc(WORD crc, BYTE data) 


{ 


a A 


réturn( (cre >> 6) cre_table [data (Cre =& OxFE)]); 


} /* End of cre calc() */ 


[ee ee a EEE EEE EEE EEE ERE AEE EEK Ee 
WORDcheck_cre(void *ptr, int size) 


This function assumes 


The CRC is returned. 


* 

* 

* Check an arbitrary lengthed buffer with its CRC. 
* that the buffer has the CRC appended to the data. 
* 
¥ 
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WORDcheck_cre(void *ptr, int size) 
{ 

int rte 

WORD crc; 

BYTE * p = (BYTE *)ptr; 


EGr G2 =— 0. 
cre = 


Cre) =)0- 1° < size. i144) 


cre_calc(crc, *p++); 
return (cre); 


} /* End of prep _cre() */ 


[oe i EEE EE EEE EEE EEE EEK EEE 
* 


*  WORDprepare_cre(void *data, int size) 

* 

* Prepare an arbitrary lengthed buffer with its CRC by calculating the CRC 
* and then appending it to the end of the buffer. This function assumes 

* that the buffer is prepared with a length of 2 greater than the data. 

* The high-byte of the CRC is written first, the low-byte follows. The CRC 
* is returned. 

¥ 

¥ 
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WORD prepare_crc(void *ptr, int size) 
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int i; 
WORDcrc; 
BYTE*p = (BYTE *)ptr; 


for {1 = 0, cre = 0; i < size; i++) 
erce-sere Calctcrc, *p++) ; 


*por+ = (BYTE) ({eCrc & OXFFO0) >> 8); 
*p = (BYTE) (cre & OxOOFF) ; 


return(crc); 


/* End of prep _cre() */ 


s/eeteeereeeeerereeereeterereterekieeeteetkeneteeeeteetekt eek eee eet etek kkk ee 


od 
® 
x 
* 
* 
® 


® 


* 


WORDdisable_ints() 


Disable interrupts (if they are not already disabled). And set the 
ints disabled flag to TRUE, indicating that interrupts are no longer 


enabled. Return the flag which is used to control wether or not interrupts 
should be re-enabled. 
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WORD disable ints (void) 


{ 


} 


if (!ints_ disabled) 

( 
_disable(); 
ints disabled = TRUE; 
return(ints disabled) ; 


else 
return (FALSE) ; 


/* End of disable_ints() */ 


fxrteeeeeereeeeerereterereeeterereeerrerrreetererrerreeerrirrereetrkeeereeeerekiee st 


voidenable_ints () 


Enables interrupts and marks the ints disabled flag accordingly. 


eeeeeeeeeereere eee eee e eee eee eee eee eee eee ekatereeeee eee ete tee eres / 


voidenable_ ints (void) 


{ 


} 


enable () ; 
ints disabled = FALSE; 


/* End of enable _ints() */ 


End of gen_apis.h, gen_apis.c 
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gen_defs.h 
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* 


* GEN_DEFS.H 

= 

* Include file for general definitions used by most 
* 

* Petite Amateur Navy Satellite (PANSAT). 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, 
* Jim A. Horning (Jah) 

¥ 

* Revision History: 

* Se 

¥ 

* Date Who What 

et emwmeeeewew ewes ww = +oe-e tee ee ne a a a a a a ae ae ae eee ee ee ee ee ee er ee em Hee ee ee ee HK KKK 
* 8 Sept 1995 Jah Creation 


«x 
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typedef 
typedef 
typedef 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 


unsigned char 
unsigned int 
unsigned long int DWORD; 


FALSE 
TRUE 
ERROR 


NO_ERROR 


OFF 

ON 
RESET 
Sed 


BYTE; 


WORD; 


FOrHOFHO 


-h and 


Naval Postgradate School. 


Jo fr les:... 


NULL “0 


/* Character definitions for ASCII */ 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 


NULL_CHAR (char) 0x00 

BELL (char) 0x07 

BACK_SPACE (char) 0x08 

LF (char) 0x0A 

CR (char) 0x0D 

ESC (char) 0x1B 

CTRL_Q (char) 0x11 

CTRL_R (char) 0x12 

CTRL_S (char) 0x13 

CTRL_V (char) 0x16 

CTRL_W (char) 0x17 

GIRL. xX (char) 0x18 

CTRL_Y (char) 0x19 

CTRL_Z (char) 0x1A 

HOME (char) Ox1E 

NEW_LINE (char) 0x1F 

MAX UCHAR (unsigned char) 255 
MAX CHAR (signed char) 2 

MAX _UINT (unsigned int) 65535 
MAX_INT (intr) 32767 
MAX _ULONG (unsigned long int) 4294967295 
MAX LONG (long int) 2147483647 


/* DMA Registers */ 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


DOSRCH OxFFC2 
DOSRCL OxFFCO 
DODSTH OxXFFC6 
DODSTL OxXFFC4 
DOCON OxXFFCA 
DOTC OxFFC8 

D1SRCH OxXFFD2 
D1SRCL OxFFDO 
D1DSTH OxXFFD6 
D1DSTL OxFFD4 
D1CON OxXFFDA 


D1TC OxFFD8 
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/* Operating Frequencies */ 
#define CRYSTAL FREQUENCY 14 .7456E+6 
/* Peripheral Clock: half the frequency of the crystal frequency */ 


#define PCLK ( (double) (1.0/ (CRYSTAL _FREQUENCY/2.0))) 


End of gen_defs.h 
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int.h, int.c 
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Petite Amateur Navy Satellite (PANSAT). 

Embedded ROM software. 

Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
Jim A. Horning (Jah) 


Revision History: 
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#define INT_EOI OxFF22 
#define INT REQ REG 0xFF2E 
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Petite Amateur Navy Satellite (PANSAT). 

Embedded ROM software. 

Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
Jim A. Horning (Jah) 


Revision History: 
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#include "gen defs.h" 
#define rT oC 
fine bude "int 7h" 

#undef Prec 


End of int.h, int.c 
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modem.h, modem.c 
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* 
* 


* 


MODEM.H 
MODEM 


Petite Amateur Navy Satellite (PANSAT). 
Embedded ROM software. 


Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
Jim A. Horning (Jah) 


Revision History: 


ee ae ae ie i a i i i i 
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17 July 1996 Jah Creation 
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typedef struct 


{ 


BYTE address; 
BYTE data; 


}) pal00_instr_struct; 


#ifdef | MODEM 


#define PA100 BASE 0x200 
#define MODEM _CTRL_PORT 0x180 


#define MODEM_SETUP 0x00 /* Encode=OFF, DDS=OFF, Spread=OFF,Reset=OFF */ 
#define MODEM_RESET 0x01 /* Encode=OFF, DDS=OFF, Spread=OFF,Reset=ON */ 
#define MODEM_CLEAR 0x0C /* Encode=0ON, DDS=ON, Spread=OFF,Reset=OFF */ 


#define MODEM SPREAD 0x0E/* Encode=ON, DDS=ON, Spread=ON, Reset=OFF xf 


voidmodem_clear (void) ; 
voidmodem_off (void) ; 
voidmodem_on (void) ; 
voidmodem_spread (void) ; 


void pal00_read_regs (void) ; 
void pal00_write_table(pal00_ instr_struct table[]); 


#Hendif 


#ifndef MODEM 


extern void modem_clear(void) ; 
extern void modem_off (void) ; 
extern void modem_on(void) ; 
extern void modem_spread (void) ; 


extern void pal00_read_regs (void) ; 
extern void pal00 write table(pal00_instr_ struct table[]); 


#Hendif 
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MODEM .C 


Embedded ROM software. 


Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 


* 

* 

* Petite Amateur Navy Satellite (PANSAT). 
* 

* 

* Jim A. Horning (Jah) 


* Revision History: 

* Seo sesoseeese sess 

- ood ee Who What 

hee a ee ee eae oe ee Sosscssss pereee- ee nn an = = = = He =e oe on ee oe ee ee wwe 
* d7 July 1996 Jah Creation 

* 

* 
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#include “Geleaers 1" 
#define MODEM 
#include "modem.h" 
#undef MODEM 
#include *“neb. nh" 


Static pal00_instr_struct pal100_init{] = 
{ 
{Ox01, Oxcé}, /* ALPHA_I FIR filter weights */ 
{0x04,  O0xCcé}, /* ALPHA_Q */ 
{0x02, 0x00}, /* IBI_LO DC removal filter, I channel bias */ 
{0x03, OxE2}, /* IBI_HI */ 
{Ox05, 0x00}, /* QBI_LO DC removal filter, Q channel bias */ 
{0x06, OxE2}, /* QBI_HI */ 
/* AGC */ 
{0x07, 0x22}, /* AGC L AGC reference Level */ 
{0x08, 0x38}, /* AGC_G AGC proportional & saturated gains */ 
{0x09, 0x00}, /* AGC I AGC initial value */ 
{Ox0A, OxF5}, /* GP1_CTL Init. AGC, apply DC removal filter initial bias */ 
{Ox0A, OxFO}, /* GP1_CTL Let AGC free run, remove DC filter initial bias */ 
/* PN Generators */ 
{0x19, 0x00}, /* I_PNT_LO I PN generator taps */ 
{Oxl1A, 0x82}, /* I_PNT_HI */ 
{0x17, 0x00}, /* I_PNI_LO I PN generator initial register setting */ 
{Ox18, OxBE}, /* I_PNI_HI */ 


{Ox1D, 0x00}, /* Q PNT LO Q PN generator taps */ 
{OxlE, 0x82}, /* Q PNT_HI */ 
{0x1B, 0x00}, /* Q_PNI_LO Q PN generator initial register setting */ 


{Ox1C, OxBE}, /* Q _PNI_HI */ 

{Ox1F, 0x77}, /* PN_CNTLO */ 

{Ox20, 0x05}, /* PN _CNTLI1 */ 

/-@ PN Detector */ 

{0x22, 0x00}, /* PNSEL PN detection code select (I or Q code) */ 

/* General Controls */ 

{Ox28, 0x39}, /* CNTL_B2 Enable time/level/phase strobes, set polarities */ 
{Ox29, 0x01}, /* CNTL_B3 unfreeze, enable output data clock */ 

{Ox2A, 0x00},  /* EXT_IN External data input controls */ 

{Ox2B, 0x00}, /* GP_3 Clear i/o muxing */ 

{Ox2C, OxEA}, /* CNTL_AS Select symbol strobes used by accumulators */ 
/* Phase Loop */ 

{0x39, 0x00}, /* PH_FREQ_0 Phase accumulator initial value */ 

{Ox3A, 0x00}, /* PH_FREQ 1 */ 

{0x3B, 0x00}, /* PH_FREQ 2 */ 

{Ox3C, 0x00}, /* PH FREQ 3 */ 

/* Time Loop */ 

{0x14, OxFA}, /* TIM_CTL2 Set subchip and chip counter sync. source */ 


{Ox33, 0x09}, /* TM_WIDTH Freq Synth Ctrl Word width = 32-TM_WIDTH bits */ 
{Ox0C, 0x00}, /* SC_LO Samples per subchip = 0 */ 

{Ox0D, 0x00}, /* SC_HI Clear mode for initialization */ 

{Ox0E, 0x00}, /* CHIP Subchips per chip = 0, clear mode for init */ 


{OxOF, 0x00}, /* I_SYM_HI TI channel: chips per symbol = 0 */ 

{Ox10, 0x00}, /* I_SYM LO Clear mode for initialization */ 

{Oxll, 0x00), /* Q_SYM_HI Q channel: chips per symbol = 0 */ 

{Ox12, 0x00}, /* Q SYM _LO */ 

{Ox15, 0x02}, /* TIM_CTL3 Toggle SYS_INIT, set I strobe via I, Q via Q */ 
{0x15, 0x42}, /* TIM_CTL3 Set I & Q PN to (2*N)-1 or 2°N */ 

{Ox15, 0x02}, /* TIM_CTL3 Set I strobe from I channel, Q via Q channel */ 
{Ox2D, 0x00}, /* TM_FREQ_0O Rs, sample clock = 10 MHz for initialization */ 
{Ox2E, 0x00}, /* TM_FREQ 1 */ 

{Ox2F, 0x00}, /* TM FREQ 2 */ 

{Ox30, 0x80}, /* TM_FREQ 3 */ 

{Ox31, 0x00}, /* TM_GAIN 1 Open Timing Loop */ 

{Ox32, 0x80}, /* TM_GAIN 2 Initialize Timing Loop */ 
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{0x32, 0x00}, /* TM_GAIN 2 Stop initializing loop */ 


{OxFF,  OxFF} /* 


}; 


End */ 


Static pal00O instr struct pal00 clear[] = 


{ 


{Ox0B, 0x00}, /* 


/* PN GENERATORS */ 


fox21, 0x20}, /* 
{ox26, 0x24}, /* 
{ox27, 0x3B}, /* 


PA_SC PREACCUMULATOR SCALING CONSTANT */ 

cc FREQ. DISC. ON,SET INT PN, I&Q PN ON/OFF */ 
CNTL_BO QUADRAPHASE DATA, SEL LEVEL $ TIME CHANNEL */ 
CNTL_Bl ENABLE DATA REMOVAL, SELECT PHASE CHANNEL */ 


/* TIME ERROR DETECTOR PROCESSOR */ 


{ox23, 0x55}, /* 


I_Q TIME SET SCALE FACTORS FOR TIMING ACCUMULATOR */ 


/* PHASE LEVEL PROCESSOR */ 


{ox24, 0x55}, /* 
10x25, 0x55}, /* 
/* TIME LOOP */ 
{ox0Cc, Ox3F}, /* 
{Ox0oD, ox0o}, /* 
{Ox0E, oxoo}, /* 
{OxOF, ox0o}, /* 
{Ox10, Ox01}, /* 
{Ox11, 0x00}, /* 
{Ox12, oxo01}, /* 
{Ox13, oxo00}, /* 
{Ox16, oxo00o}, /* 
{Ox13, 0x00}, /* 
{Ox2D, oxo0o}, /* 
{Ox2E, ox00}, /* 
{Ox2F, 0x00}, /* 
{Ox30, Oxs0}, /* 
{0x31, OxS8}, /* 
{O0x32, OxD1}, /* 
/* PN DETECTOR */ 
{ox35, oxoo}, /* 
{Ox36, oOx00}, /* 
{0x37, 0x00}, /* 
{0x38, OxFF}, /* 
/* PHASE LOOP */ 
{Ox3D, Ox7F}, /* 
{Ox3E, OxD4a}, /* 
/* TIME LOOP */ 
{Ox1S5, oxa2}, /* 
{Ox15, 0x02}, /* 
/* PN DETECTOR */ 
{Ox34, Ox00}, /* 
{0x34, 0x04}, /* 
{0x34, 0x00}, /* 
/* TIME LOOP */ 
{Ox32, OxS1}. /* 


I_Q LEVEL SET SCALE FACTORS FOR LEVEL ACCUMULATOR */ 
I_Q PHASE SET SCALE FACTORS FOR PHASE ACCUMULATOR */ 


SCiLO Samples per subchip = 0 */ 
SC_HI clear mode for initialization */ 
CHIP Subchips per chip = 0, clear mode for init */ 


I_SYM_HI I channel: chips per symbol = 0 */ 

I_SYM_LO- clear mode for initialization */ 

Q SYM_HI OQ channel: chips per symbol = 0 */ 

Q_SYM_LO */ 

TIM_CTL1 NO CODE SLIPPING, CLEAR MODE */ 

TIM_CTL4 CLEAR MODE, DISABLE */ 

TIM_CTL1 NO CODE SLIPPING */ 

TM_FREQ_0 Rs, sample clock = START AT 10 MHz */ 
TM_FREQ 1 */ 

TM_FREQ 2 */ 

TM_FREQ 3 */ 

TM_GAIN_1 Open Loop, ARM TO CLOSE ON PN DET, SET Kil */ 
TM_GAIN_2 LOAD FILTER WITH INITIAL VALUE, SET GAIN K2 */ 


PNCD_BIAS PN DETECTOR BIAS LEVEL */ 
PNCD_INITLO PN DETECTOR ACCUMULATOR */ 

PNCD INITHI */ 

PNCD_TIM PN DETECTOR CORRELATION TIMER */ 


PH_GAIN_1 CLOSE THE LOOP, MAKE LOOP FIRST ORDER */ 
PH_GAIN_2 LOAD ACCUM WITH INITIAL VALUE, SET GAIN K2 */ 


SYS_INIT */ 
SYS INIT */ 


PNCD_CTL PN DETECTOR ACQ/TRACK CONTROLLER */ 
PNCD_CTL RESTART TRACK SEQUENCE */ 
PNCD_CTL */ 


TM_GAIN_2 Stop LOADING TIME LOOP FILTER WITH INIT VALUE */ 


/* FREQUENCY PULLIN/TRACK SETUP TABLE */ 


/* PN GENERATORS °/ 
{Ox21, Ox20}. /* 


ce FREQ. DISC. ON,SET INT PN, I&Q PN ON/OFF */ 


/* PHASE LEVEL PROCESSOR */ 


{Ox26, 0x28}, /* CNTL_BO QUADRAPHASE DATA, SELECT LEVEL $ TIME CHANNEL */ 
{0x27, 0x3B}, /* CNTL_B1 ENABLE DATA REMOVAL, SELECT PHASE CHANNEL */ 
{0x3D, O0x7F}, /* PH_GAIN_1 CLOSE THE LOOP, MAKE LOOP FIRST ORDER */ 

{Ox3E, 0x54), /* PH_GAIN_2 LOAD ACCUM WITH INITIAL VALUE, SET GAIN K2 */ 

/* TIME ERROk DETECTOR PROCESSOR */ 

{Ox23, 0x55},  ’* I_@_TIME SET SCALE FACTORS FOR TIMING ACCUMULATOR */ 

/* PHASE LEVEL FROCESSOR °¢/ 

{Ox24, 0x55}, /* 3_C_LEVEL SET SCALE FACTORS FOR LEVEL ACCUMULATOR */ 
{Ox25, 0x5}, * ! C_PHASE SET SCALE FACTORS FOR PHASE ACCUMULATOR */ 

/* COHERENT TRATY SETUF TABLE */ 

{Ox3D, 0x54}, * FH GAIN_1 CLOSE THE LOOP, MAKE LOOP FIRST ORDER */ 

{Ox3E,  Ox4E}, * PH GAIN_2 LOAD ACCUM WITH INITIAL VALUE, SET GAIN K2 */ 

/* PHASE LEVEL FROCESSOF °/ 

{Ox26, 0x00}, /* CNTL_BO QUADRAPHASE DATA, SELECT LEVEL $ TIME CHANNEL */ 
{Ox27,  O0x3D), ° CNTL_BI ENABLE DATA REMOVAL, SELECT PHASE CHANNEL */ 


/* PN GENERATORS ¢/ 


{0x21, 0x00}, ia ee FREQ. DISC. ON,SET INT PN, I&Q PN ON/OFF */ 
/* TIME ERROR DETECTOR PROCESSOR */ 


{Ox23, 0x55}. /®* 


LO TIME SET SCALE FACTORS FOR TIMING ACCUMULATOR */ 


/* PHASE LEVEL PROCESSOR °*/ 
{ox24, 0x55}, /* I_Q LEVEL SET SCALE FACTORS FOR LEVEL ACCUMULATOR */ 
{Ox25, 0x55}, /* I_Q PHASE SET SCALE FACTORS FOR PHASE ACCUMULATOR */ 


{OxFF,  OxFF} /* 


Er 


End */ 
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* 


* modem clear () 
* 


REE EEE Ee eee eee eee ee / 


voidmodem_clear (void) 


{ 


modem_on() ; 

/* outp(MODEM_CTRL_PORT, MODEM_SETUP); */ /* done by modem_on() */ 
pal00_ write table(pal00 init); 

outp (MODEM_CTRL_PORT, MODEM_CLEAR) ; 

pal00 write _table(pai00 clear); 


}  /* End of modem_clear() */ 


[ttt eeeeekeeeeete eee eee eee eee eee eee eee eek eee eee eee eee eee eee eee ee 


* 


* modem off () 
* 


eekkeeeeeeteee eek eke eee eee eee eee eee eee eee eee eee eet tte / 


void modem_off (void) 


{ 


pcb_portc(0, ON); /* Turn this control bit ON to turn OFF modem */ 


}  /* End of modem_off() */ 


[RR a EEE EEE EEE EEE AEE EEE EEE 


* 


* modem_on() 
* 


eaeeeeeee eee eeekee eee eee keke eee eee eee eee eee eee eee ee / 


voidmodem_on (void) 


{ 


WORD x; 


peb port¢(d, OFF); /* Turn this control bit OFF to turn ON modem */ 


for (x = 0; x < OxFFFF; x++) 


outp (MODEM_CTRL_PORT, MODEM_RESET) ; 


for (x = 0; x < OxFFFF; x++) 


outp (MODEM_CTRL_PORT, MODEM_SETUP) ; 


} /* End of modem_on() */ 


[a a a EEE EET EET EEE EEE EEE EEE 
* 


* modem _spread() 
* 


Reed eeeeekseeaeeeeeeeeteeeeatekeeteeeeekeeeeeaeetaekeeekekeekekeeteeteekekteees / 


voidmodem_spread (void) 


{ 


/* normal spread, fixed encode, on DDS ont/ 
outp (MODEM_CTRL_PORT, MODEM SETUP) ; 
pal00_write_table(pal00_ init) ; 


outp (MODEM_CTRL_PORT, MODEM_SPREAD) ; 


} /* End of modem_spread() */ 


[RR EEE EEE EEE EAE 


* 


* pal00_read_regs() 


x 


WHORE AHEHETE AERA HE AEH eeeeeeeeeeteeeeeeeeeeteteeteeteteeeaeeees / 
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void 


{ 


pal00_read_regs (void) 


unsigned 
unsigned 
unsigned 
unsigned 
double 


int addr, data, 
int data_tab[0x20} ; 
Int 6; 
long 


x; 


a; 
£% 


/* Freeze */ 


outp(PA100_BASE + 


for (x 


data_tab[x] 


(Ox29))<<1;, 
Ox14; x++) 
inp(PA100_BASE + (x<<1)); 


0x81) ; 
1; X <= 


/* Unfreeze */ 


outp(PA100_ BASE + (0x29) <<2, 0x01); 
for (x = 1; x <= 0x14; x++) 
{ 
data = data_tab[x]; 
switch (x) 
{ 
case 1: 
dprint("01: AGC Status = 
break; 
case 2: 
b = data; 
break; 
case 3: 
b= (b<<8) + data; 
a@print("02, 03: I Prefilter = 
break; 
case 4: 
b = data; 
break; 
case 5S: 
b = (b<<8) + data; 
dprint("04, 05: Q Prefilter = 
break; 
case 6: 
a = data; 
break; 
case 7: 
a = (((unsigned long) data) << 8) + a; 
break; 
case 8: 
a = (((unsigned long)data) << 16) + a; 
break; 
case 9: 
a = (((unsigned long) data) << 24) + a; 
f = ( (double) a) /((double) 214.748365E6) ; 


dprint ("06 - 09 Time Frequency Command 
aprint (* 
break; 


case OxA: 
a data; 
break; 


case OxB: 
a (((unsigned long) data) 
break; 


<< 8) + a; 


case OxC: 
a (( (unsigned long) data) 
break; 


<< 16) + a; 


case OxD: 
a (((unsigned long)data) << 24) + a; 
f£ ( (double) a) /( (double) 214 .748365E6) ; 
dprint ("0A - OD Phase Frequency Command 
aprint (" 
break; 


lt 


case OxE: 
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$O02Xh\n", 


*04Xh\n", 


data) ; 


Bc; 


*04Xh\n", b); 


$1Xh\n", 


$1£ MHz\n°, 


a); 
fs 


tlxhn\n"> a) 
‘lf MHz\n", 


£)3 


break; 


case OxF: 
break; 


case 0x10: 
b = data; 
break; 


case Ox11% 
b= (data << 3) gan, 


dprant("10, 11: PN Correlation Detectcr 


break; 


case 0x12: 
b = data; 
break; 


case 0x13: 
b = (data << 8) + b; 
dprint("12, 13: PN Correlation Slip 
break; 


case 0x14: 
dprint("14: PN Generator Status 
if (data & 0x01) 


dprint ¢" IPN_EP_TOG = 1\n"); 
else 

asrink<™ IPN_EP_TOG = 0\n"); 
if (data & 0x02) 

dprint (" QPN_EP_TOG = 1\n"); 
else 

aerint(* QPN_EP TOG = 0\n"); 
break; 


} 


} /* End of palo0 read_regs() */ 


*O4Xh,), “01s 3 be be 


*%04Xh, %u\n", b, b); 


*02Xh\n", data); 


[OR EE EEE EE EEE EEE EEE EEE EE EE ERE EE EEE AE EEE AEE E EERE EERE REE EES 


* 


* pal00_write_table() 


x 
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voidpal00_write_table(pa1l00_instr_struct table[]) 


{ 


int x; 


for (x = 0; table[x]}.address != (BYTE)OxFF; x++) 
{ 
if (table[x) .address == 0) 
outp (MODEM_CTRL_PORT, (WORD) table [x] .data) ; 
else 


outp(PA100 BASE + (WORD) (table[x] .address<<1), 


} 


} /* End of pal00_write_table() */ 


End of modem.h, modem.c 
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(WORD) table([x]) .data) ; 


msu.h, msu.c 


s/t eter ete ere teeter etree eee err etree treet tert te tte eee eee ee eee eee eee ert res 


® 


. 


+ 


* + + + # + 


#ifdef 


MSU.H 


Include 


file for Mass Storage Units (MSU) software interface. 


Petite Amateur Navy Satellite (PANSAT). 
Embedded ROM software. 


Copyright (c) 


1996 Space Systems Academic Group, Naval Postgradate School. 


Jim A. Horning (Jah) 


Revision History: 


— 
SS 


5 Sept 1996. 


#define 


#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 


#define 
#define 


MSU 


Creation 


weeterekeeeeekereereeeeeeekeeeekeneeeeerkerekeeeekeeeeeereeeee weer eeeeeeee te / 


NUM_FLASH DEVICES 4 

FLASH SECTOR_SIZE ( (DWORD) 0x4000L) /* 16 kbytes */ 
FLASH SECTOR_END ADDRESS ((DWORD) (FLASH _SECTOR_SIZE - 1)) 

FLASH_SECTORS PER_DEVICE 8 

FLASH_SECTOR_MAX_PER_DEVICE  (FLASH_DEVICE_SECTORS - ‘'1) 

FLASH DEVICE SIZE (FLASH_SECTORS_PER_ DEVICE * FLASH SECTOR_SIZE) 
FLASH SIZE (NUM_FLASH DEVICES * FLASH _DEVICE_SIZE) 


FLASH_END_ADDRESS 
FLASH_SECTORS 
FLASH_SECTOR_MAX 


(FLASH_SIZE - 1) 
(NUM_FLASH DEVICES * FLASH_SECTORS_PER_DEVICE) 
(FLASH SECTORS - 1) 


ERASE_TIME_LIMIT 
WRITE_TIME_LIMIT 


( (DWORD) 0x0003FFFFL) 
OxOFFF 


/* Masks to signify the search method that found the first empty record */ 


#define 
#define 
#define 
#define 


voidmsu 


void 
void 
Int 
ine 


NO_TLM_WRAP 0x0 
TLM_WRAP 0x8000 
NO_TLM_FIND OxFFFF 
NO_REC_NUM OxFFFF 


_init({imt device) ; 
msu_on(int device) ; 


msu_off (int device) ; 


msu_flash_erase(int device); 
msu_flash_erase_sector(int device, int sector); 


BYTEmsu_flash_readil(int device, DWORD addr) ; 
voidmsu_flash_read(int device, DWORD addr, BYTE *buf, int count); 


int 
Te 


msu_flash_writel(int device, DWORD addr, BYTE data) ; 
msu_flash_write(int device, DWORD addr, BYTE *data, int count) ; 


voidmsu_set_faddr(int device, DWORD addr); 


Tne 
int 


msu_calc first_rec(int rec_num); 
msu_check_flash_tlm (void) ; 


WORDmsu_flash_search(int device) ; 


int 


msu_get tlm(tlm_ record struct *r_tlm, int rec_num); 


voidmsu_save_tlm(tlm_record_struct *r_tlm); 


BYTEmsu_sram_readl(int device, DWORD addr) ; 
voidmsu_sram read(int device, DWORD addr, BYTE *buf, int count); 


ing 
ine 


msu_sram_writel(int device, DWORD addr, BYTE data); 
msu_Sram_write(int device, DWORD addr, BYTE *data, int count) ; 


voidmsu_set_saddr(int device, DWORD addr); 


voidmsu_ftest (int device) ; 
voidmsu_stest (int device) ; 


#Hendif 


/* prototypes for modules other than msu.c */ 
#ifndef MSU 


extern void 


msu_init (int device) ; 
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extern void msu on(int device), 


extern void msu_off(int device) ; 
extern Inc msu_flash_erase(int device) ; 
extern int msu_flash_erase_sector(int device, int sector); 
extern BYTE msu_flash_readl(int device, DWORD addr) ; 
extern void msu_flash_read(int device, DWORD addr, BYTE *buf, int count); 
exEGrno int msu_flash_writel(int device, DWORD addr, BYTE data); 
extern int msu_flash_write(int device, DWORD addr, BYTE *data, int count); 
extern void msu_set_faddr(int device, DWORD addr) ; 
extern Ant msu_check_flash_tlm(void) ; 
extern int msu_get_tlm(tlm record struct *r_tlm, int rec_num) ; 
extern void msu_save_tlm(tlm_record_ struct *r_tlm); 
extern BYTE msu_sram_read1(int device, DWORD addr); 
extern void msu_sram_read(int device, DWORD addr, BYTE *buf, int count); 
extern int msu_sram_writel({int device, DWORD addr, BYTE data) ; 
exter Int msu_sram_write(int device, DWORD addr, BYTE *data, int count) ; 
CAtermevord msu_set_saddr(int device, DWORD addr) ; 
extern void msuy ftest (ne device) ; 
extern void msu_stest (int device) ; 
#endif 


[Pe EAE 
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* 
* 
* 
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* 
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MSU.C 
Interface for the Mass Storage Units (MSU). 


Petite Amateur Navy Satellite (PANSAT). 

Embedded ROM software. 

Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
Jim A. Horning (Jah) 


The Mass Storage Units have 4 Mbytes of SRAM and 1/2 Mbyte of Flash. 
The Flash devices are the Am29F010. 


Revision History: 


Beams ssa Ss Se aE 2 ES = 
 —— 


Bace Who What 

ere ree i ate ee Ee eee ae ee Seo ea eee eS. ee 
5 Sept 1996 Jah Creation 

22 April 1997 Jah Support for record keeping. 


Re ae a ee ea AAA AAA AAA AAA aa ee / 


#include "gen Gets h* 
#include "bem. h* 
#include "tlm.h" 

#define MSU 
#include "msu.h" 
#undef MSU 

#include "des .h" 
#include "eps.h" 
#include “pen eh™ 


/* Flash storage telemtry record pointers */ 

WORDmsu_tlim_rec_num = 0; /* current location to record to */ 
WORDmsu_tlm_first_rec num = 0; /* location of oldest record */ 
WORDmsu_tim_last_rec_num = NO_REC_NUM; /* location of newest record */ 


#define LAST_TLM_REC_NUM ((FLASH_DEVICE_SIZE/sizeof (tlm_record struct)) - 1) 


LP ERR ERE KEKE ERE REE EE 


® 


* 


x 


* 


® 


void msu_init(int device) 


Initializes a MSU. 


Seer eee eae eee eae aaa ee eee aac eae eae a eae katara kaka keke aaa aaa at / 


void 


{ 


msu_init(int device) 


pceb_write(device, 3, 0x80); 
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peb write(device, 2, 0x48); /* Point to landing zone for low power */ 


} /* End of msu_init() */ 


f/eteteeeeeee ere eet eet eee eee eee eee eee ee 
* void msu on(int device) 


* Turns ON and initializes a MSU. 


ee ee et OTST eee ee TA eee eee eee Lee TATE e ee eeeereteseerese / 


void msu_on(int device) 


{ 


WORDi; 


if (device == MSAO) 
eps_set_power(PWR_MSA, ON); 
else 
eps_set_power(PWR_MSB, ON) ; 


for (1 = 0; i < OxX1FFF; i++) /* pause for power ON */ 


msu_init (device) ; 


} /* End of msu_on() */ 


f/eeeee eee eee eee eee eee eee eee eA eee eee eee 


* 


* void msu_off(int device) 
* 


* Turns OFF a MSU. 


¥ 


weteeeeteeee eee eee eee eee eee eee eek eee eee ee eee eee ee / 


void msu_off(int device) 


{ 
1f (device == MSAO) 
eps_set_power(PWR_MSA, OFF) ; 
else 
eps set_power(PWR_MSB, OFF) ; 


} /* End of msu_off() */ 


/AteeeT AAA Ae eee eee eee eee eee 


* WORDmsu_flash_codes(int device) 


* Examines the four Flash devices for a MSU to see if the manufacturer 
* code (0x01 = AMD) and the device type (0x20 = 29F010) are readable from 
* each. 


teed eee eters rere eee eee eee eee eae eee / 


WORDmsu_flash_codes(int device) 
register int i; 
BYTE data; 
register WORD flag = 0; 


for (i =907 i < 4; i++) 

{ 
msu_set_faddr(device, ({i*0x00020000L) + 0x00005555L)); 
peb_write(device+1, 0, ((BYTE)0xAA)); 
msu_set_faddr(device, ((i*0x00020000L) + Ox0QO002AAAL) ) ; 
peb_write(device+1, 0, ((BYTE)0x55)); 
msu_set_faddr(device, ((i*0x00020000L) + 0x00005555L)); 
peb_write(device+1, 0, ((BYTE) 0x90) ); 


msu_set_faddr(device, (i*0x00020000L)) ; 
data = pcb read(device+1, 0); 


if (data == 0x01) 


{ 


msu_set_faddr(device, ((i*0x00020000L) + 1L)); 
data = peb read(device+l, 0); 


if (data == 0x20) 
flag |= (1<<i); 
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else 


{ 
flag |= 0x80; 
break; 
} 
} 
else 
flag |= 0x80; 
break; 


/* perform read/reset */ 

msu_set_faddr(device, ((i*0x00020000L) 
peb_write(device+1, 0, ((BYTE) 0xAA)); 
msu_set_faddr (device, 
Bebewrive (device+1 > 90, 
msu_set_faddr (device, 
peb_write(device+1, 0, 


( (BYTE) OxSS) ); 
( (BYTE) OxFO)) ; 
} 

peb_write(device, 2, 0x48); 
return (flag) ; 


} /* End of msu_flash_codes() */ 


+ 0x0000SSSSL)); 
((i*0x00020000L) + Ox00OQ002AAAL) } ; 


((i*0x00020000L) + Ox0000SSSSL)); 


/* Point to landing zone for low power */ 


» 


[XR RR I TT EEE EEK EE EE 


* 


int msu_flash_erase(int device) 


Erases all Flash devices within a MSU. 


+ 4 HH © 


tee ee ee EEE EEE EEE EEE EKER EKER EEE a ee / 


pela msu_flash_erase (int device) 
register BYTE fdata; 
register int i; 
it pass = TRUE; 
DWORD ac 


for (1 = 0; (i < 4) && pass; i++) 

{ 

( (i*0x00020000L) 
(BYTE) OxAA) ; 

{(i*0x00020000L) 
(BYTE) 0xSS) ; 

( (i*0x00020000L) 
(BYTE) 0x80); 

( (i*0x00020000L) 
(BYTE) OxAA) ; 
((i*0x00020000L) 
(BYTE) 0xSS) ; 

( (i*0x00020000L) 
(BYTE) 0x10) ; 


msu_set_faddr(device, 
peb_write (device+1, 0, 
msu_set_faddr (device, 
pcb_write(device+1, 0, 
msu_set_faddr (device, 
pcb _write(device+l1, 0, 
msu_set_faddr (device, 
peb_write(device+1, 0, 
msu_set_faddr(device, 
pcb _write(device+1, 0, 
msu_set_faddr(device, 
pecb_write(device+1, 0, 


fdata = pcb_read(device+l1, 0); 
oer 
while (((fdata & 0x80) 


{ 


if (fdata & 0x20) 


{ 
fdata = pcb_read(device+1, 0); 
if ((fdata & 0x80) == 0x80) 
break; 
else 
{ 


pass = FALSE; 
break; 


} 


fdata = pcb_read(device+l, 0); 
X++; 


} /* End of WHILE */ 


0x0000S5SSSL) ); 
0x00002AAAL) ) ; 
0x0000SSSSL)); 
Ox0000SSSSL)) ; 
0x00002AAAL) } ; 


0Ox0000SSSSL)}; 


!= 0x80) && (x < ERASE TIME LIMIT)) 
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} 


if (x == ERASE TIME LIMIT) 
pass = FALSE; 


} /* End of FOR */ 
peb_write(device, 2, 0x48); /* Point to landing zone for low power */ 


if (x == ERASE_TIME LIMIT) 
return(0xCo | i); 


else if (!pass) 
return(0x80 | i); /* 0x80 = Error flag, i = device which failed +*/ 


else 
return (pass) ; 


/* End of msu_flash_erase() */ 


f/x eeeeeeeeeeteeer eter keekeree eee eee eee keke etter rere eee eee eter kekterteteeree ee ete 


int msu_flash_writel(int device, DWORD addr, BYTE data) 


Write one data byte to a flash address. 


ene rei ETRE E ESTATE EEE ETEK EERE ER ERAREE EERE REDREEE EES © / 


int 


{ 


} 


msu_flash_writel(int device, DWORD addr, BYTE data) 


register BYTE fdata; 
int pass = TRUE; 
register WORD Xx; 


msu_set_faddr(device, (addr&0x00070000L) + 0x5555); 
peb_write(device+1, 0, (BYTE) 0xAA) ; 
msu_Set_faddr(device, (addr&0x00070000L) + Ox2AAA) ; 
peb_write(device+1, 0, (BYTE) 0x55) ; 
msu_set_faddr(device, (addr&0x00070000L) + 0x5555); 
pcb _write(device+1, 0, (BYTE) 0xA0) ; 


msu_set_faddr(device, addr) ; 
peb_write(device+1, 0, data); 


fdata = pcb read(device+l, 0); 
x = 0; 
while (((fdata & 0x80) != (data & 0x80)) && (x < WRITE _TIME_LIMIT) ) 


{ 


if (fdata & 0x20) 


{ 


fdata = pcb read(device+l, 0); 
if ((fdata & 0x80) == (data & 0x80) ) 
break; 


else 


{ 
pass = FALSE; 
break; 


} 


fdata = pcb_read(device+l, 0); 
X++; 


} 


pcb write(device, 2, 0x48); /* Point to landing zone for low power */ 


if (x == WRITE_TIME_LIMIT) 
pass = FALSE; 


return (pass) ; 


/* End of msu_flash writel1() */ 
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int msu_flash_write(int device, DWORD addr, BYTE *data, int count) 


Write data to a flash address(es). 
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int msu_flash_write(int device, DWORD addr, BYTE *data, int count) 
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register BYTE fdata; 


Int pass = TRUE; 
register WORD > 
Oe 


while ((count--) && (x < WRITE_TIME_LIMIT) ) 

{ 
msu_set_faddr(device, (addr&0x00070000L) + 0x5555); 
pcb write (device+1, 0, (BYTE) OxAA) ; 
msu_set_faddr(device, (addr&0x00070000L) + Ox2AAA) ; 
pcb _write(device+l1, 0, (BYTE) 0x55); 
msu_set_faddr(device, (addr&0x00070000L) + 0x5555); 
peb_ write (device+l, 0, (BYTE) 0xA0) ; 


msu_set_faddr(device, addr); 
pep write (devices1, 0, “data); 


fdata = pcb read(device+l1, 0); 
x = 0; 
while (((fdata & 0x80) != (*data & 0x80)) && (x < WRITE_TIME_LIMIT) ) 


{ 


if (fdata & 0x20) 


{ 


fdata = pcb _read(device+l, 0); 
if (({fdata & 0x80) == (*data & 0x80)) 
break; 


else 


{ 
pass = FALSE; 
break; 


} 


fdata = pch_read(device+l1, 0); 


K++ 7 
} 
addr++; 
data++; 
} 
pcb _write(device, 2, 0x48); /* Point to landing zone for low power */ 


if (x == WRITE _TIME_LIMIT) 
pass = FALSE; 


return (pass) ; 


} /* End of msu_flash_write() */ 
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*  BYTEmsu_flash_readl{int device, DWORD addr) 
* Read one data byte from a flash address. 
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BYTEmsu_flash_readl(int device, DWORD addr) 


{ 


register BYTE data; 

msu_set_faddr(device, addr); 

data = peb read(device+l, 0); 

pcb write(device, 2, 0x48); /* Point to landing zone for low power */ 
return (data) ; 


} /* End of msu_flash_read1() */ 


[RARE eee eee eke ee 
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voidmsu_flash_read(int device, DWORD addr, BYTE *buf, int count) 


Read data from a flash address. This routine only increments the address 
on the MSU if it has changed; thereby reducing many PCB Writes. The 
overhead to check for a,c,b address roll-over is nothing compared to the 
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* PCB Write. 


* 
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voidmsu_flash_read(int device, DWORD addr, BYTE *buf, int count) 


{ 


register WORD a; Ds 
WORD or 


msu_set_faddr(device, addr) ; 

a (WORD) ((addr) & OxO000000FFL) ; 

b (WORD) (((addr) & Ox0O000FFOOL) >>8); 

c = (WORD) ((((addr) | 0x00400000L) & Ox00FFO000L) >>16) ; 


while (count--) 


{ 


*buf = pceb_read(device+1l, 0); 
bu f++; 


/* Now, setup for the next address to write to */ 
aA++; 

peb_write(device, 0, a%0x100); 

if (a > OxFF) 


{ 
a= 0; 
b++; 
peb_write(device, 1, b%0x100); 
if (b > “OxFF) 


{ 
De OO; 
C++; 
peb_write(device, 2, c); 


} 


peb_write(device, 2, 0x48); /* Point to landing zone for low power */ 


} /* End of msu_flash_read() */ 
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BYTEmsu_sram_readl(int device, DWORD addr) 
* 


* Read data to a flash address. 
* 
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BYTEmsu_sram_readl(int device, DWORD addr) 


{ 


register BYTE data; 


msu_set_saddr(device, addr) ; 
data = pcb read(device+l, 0); 


peb_write(device, 2, 0x48); /* Point to landing zone for low power */ 


return (data) ; 


} /* End of msu_sram_readi1() */ 


LRT ETT REE ETEK EEE EERE EEE EERE EEE 
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voidmsu_sram_read(int device, DWORD addr, BYTE *buf, int count) 


Read data to a flash address. This routine only increments the address 
on the MSU if it has changed; thereby reducing many PCB Writes. The 


overhead to check for a,c,b address roll-over is nothing compared to the 
PCB Write. 


* 
* 
* 
* 
* 
+ 
* 
* 
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voidmsu_sram_read(int device, DWORD addr, BYTE *buf, int count) 


register WORD a, 0; 
WORD ec; 


msu_set_saddr(device, addr); 
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It 
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(WORD) ({addr) & Ox0OQ0O0000FFL) ; 
(WORD) ({{addr) & OxOOOOFFOOL) >>8) ; 
(WORD) (( (addr) & OxOOFFOOOOL) >>16) ; 


while (count--) 


{ 


} 


*buf = pcb read(device+l, 0); 
buf++; 


/* Now, setup the next address to write to */ 
a++; 
pcb_write(device, 0, a%0x100); 
if (a > OxFF) 
{ 
a = 0; 
b++; 
pcb _write(device, 1, b%0x100); 
if (b > OxFF) 
{ 
b = 0; 
re, 
pcb_write(device, 2, c); 


pcb_write(device, 2, 0x48); /* Point to landing zone for low power */ 


} /* End of msu_sram_read() */ 
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int msu_sram_writel(int device, DWORD addr, BYTE data) 


* 
® 
* Write data to a sram address. 
x 
* 
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int msu_sram_writel(int device, DWORD addr, BYTE data) 


{ 


msu_set_saddr(device, addr) ; 
peb_write(device+l, 0, data); 


pcb _write(device, 2, 0x48); /* Point to landing zone for low power */ 


} /* End of msu_sram_writel({) */ 
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Write data to a sram address. 


int msu_sram_write(int device, DWORD addr, BYTE *data, int count) 


This routine only increments the address 
on the MSU if it has changed; thereby reducing many PCB Writes. 


The 


¥ 

* overhead to check for a,c,b address roll-over is nothing compared to the 
* PCB Write. 
* 
* 
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int msu_sram_write(int device, DWORD addr, BYTE *data, int count) 


{ 


register WORD a, b; 


WORD 


Ci 


msu_set_saddr(device, addr) ; 


a 
b 
Cc 


" 


(WORD) {({addr) & OxOOQOOOOFFL) ; 
(WORD) (({addr) & OxOOOOFFOOL) >>8) ; 
(WORD) (({addr) & OxOOFFOOOOL) >>16) ; 


while (count--) 


{ 


pcb_write(device+1, 0, *data)j; 
data++¢; 


/* Now, setup the next address to write to */ 
at++; 
pcb_write(device, 0, a%0x100); 
if (a > OxFF) 
{ 
as 0; 
b++; 
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} 


pcb _write(device, 1, b%0x100); 
if (b > OxFF) 


{ 
b = 0; 
C++; 
Peb Write(device, 2, ¢c); 


} 


pcb write(device, 2, 0x48); /* Point to landing zone for low power */ 


/* End of msu_sram_write() */ 
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* voidmsu_ftest(int device) 


- 


* 


* Tests a MSU's Flash devices by writing a pattern to the Flash devices 
* and then reading it back. 
x 
¥* 
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voidmsu_ftest(int device) 


{ 


DWORD addr; 
int a. J: 
BYTE block[256] ; 
BYTE fblock [256] ; 
DWORD cE: 

extern int icount ; 


for (i = 0; i < 255; i++) 
block[i] = (BYTE)i; 
block[255] = OxFE; /* don't use OxFF which is erased value */ 


t = icount; 

msu_flash_write(device, 0, (BYTE *)block, 256); 

t = 1count - t; 

dprint ("FLASH 256 byte block write time = tld ticks.\n", t); 
€ = e1eount; 

msu_flash_read(device, 0, (BYTE *)block, 256); 

= tcount - t; 

dprint ("FLASH 256 byte block read time = %ld ticks.\n", t); 
return; 


dprint ("Writing Flash data (# = 64K)\n"); 
for (i = 0, addr = OL; addr <= OxOOO7FFFFL; addr += 256) 
{ 


msu_flash_write(device, addr, (BYTE *)block, 256); 


Lf (441 e= 256) 


{ 
eee) 8 
dprint{(*m*). 


} 
dprint ("\nReading back Flash data (# = 64K)\n"); 


for (i = 0, addr = CL, addr <= Ox0007FFFF; addr += 256) 
{ 
msu_flash_readidevice, addr, (BYTE *)fblock, 256); 
for (977% 0, 3 « £86; jee) 
{ 


if (fblock[)]} ‘= blockl[j]) 


{ 
dprint(*Flash read back error at %1X, %X should be $X\n", 
{(DWORD) (addr+j), fblock[j]), blocklI[j]); 
return, 
} 


} 


1f (+41 s= 256) 


{ 
ao. 
aprine ("kh") ; 
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} 


eprint ("\nFinished: OX. \n"); 


/* End of msu_ftest() */ 
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¥ 
¥ 
* 
* 
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voidmsu_stest (int device) 


Tests a MSU's SRAM devices by writing a pattern to the SRAM devices 
and then reading it back. 
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voidmsu_stest (int device) 


{ 


} 


DWORD addr; 

at Led} 

BYTE block [256] ; 

BYTE fblock [256] ; 

DWORD Ct; 

#define LAST_ADDR OxOOO2FFFFL 
extern int icount ; 


for (i = 0; i < 256: i++) 
bioeck.[i)]-=" (BYTE) 1; 


t = i1count; 

NSuasranawnite (device, 0, (BYTE *)block, 256); 

tS reount.- t; 

d@print ("SRAM 256 byte block write time = %1d ticks.\n", t); 
t = icount; 

msu_sram_read(device, 0, (BYTE *)block, 256); 

t = icount = t; 

G@print ("SRAM 256 byte block read time = %1ld ticks.\n", t); 
return; 


@print ("Writing SRAM data (# = 64K)\n"); 
for (i = 0, addr = OL; addr <= LAST_ADDR; addr += 256) 


{ 


msu_sram_write(device, addr, (BYTE *)block, 256); 


1f (+41 == 256) 
{ 
i = 0; 
Gprint<'#")- 


} 
Gprint("\nReading back SRAM data (# = 64K)\n"); 


for {i = 0, addr = OL; addr <= LAST_ADDR; addr += 256) 
{ 
msu_sram_read(device, addr, (BYTE *)fblock, 256); 
for (j = 0; j < 256; j++) 
{ 
if (fbleck [j] ¢=> dicek i) 
{ 
dprint ("SRAM read back error at %1X, %X should be %X\n", 
(DWORD) (addr+j), fblock[j], block[j]); 


return; 
} 
} 
if (++i == 256) 
{ 
i = 0; 


aprine ( #") ; 
} 
Gprint ("\nFinished: OK.\n"); 


/* End of msu_stest() */ 
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voidmsu_set_saddr(int device, DWORD addr) 


Set an address to the SRAM array on a particular device. 
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void msu_set_saddr(int device, DWORD addr} 


{ 


) 


peb_write(device, 0, (WORD) ((addr) & Ox0QQ000FFL)); 
peb_write(device, 1, (WORD) (((addr) & Ox0QQ00FFOOL) >>8)) ; 
pecb_write(device, 2, (WORD) (((addr) & Ox00FFOQQOQOL) >>16)); 


/* End of msu_set_saddr() */ 
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voidmsu_set_faddr(int device, DWORD addr) 


Set an address to the Flash array on a particular device. 
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voidmsu_set_faddr(int device, DWORD addr) 


{ 


} 


pcb_write(device, 0, (WORD) ({addr) & Ox0QQQ00FFL) ); 
peb_write(device, 1, (WORD) (((addr) & Ox0QOQOQOFFOOL) >>8)) ; 
peb_write(device, 2, (WORD) ((((addr) | 0x00400000L) & Ox00FFOOOOL) >>16)); 


/* End of msu_set_faddr() */ 
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* 
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voidmsu_save_tlm() 


Save a telemetry structure to Mass Storage. 
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voidmsu_save_tlm(tlm_record_ struct *r_tlm) 


{ 


} 


Tare sector; 
int Next asector; 
at remaining; 


DWORD msu_ptr,; 


/* Calculate, and add CRC to end of the record */ 
prepare cre(r_ tlm, sizeof(tlm_record struct) -2); /* -2 due to CRC */ 


/* Is there enough room on the existing sector to write out this telemetry 
* regerd, and’ the next record ? 
a 
msu_ptr = (DWORD) (msu_tlm_rec_num * sizeof(tlm_record_struct)),; 
remaining = msu_ptr*FLASH_SECTOR_SIZE; 
if (remaining < 2*sizeof(tlm_record_ struct) ) 
{ 
/* There is not enough room for this and the next record. Erase the 
* next highest sector (unless it is time to wrap around). 
a 
sector = msu_ptr/FLASH_ SECTOR_SIZE; 
if (sector == FLASH _SECTOR_MAX) 
next_sector = 0; 
else 
next sector = sector+1; 


{erase the "next" sector */ 
msu_flash_erase_sector(MSA, next_sector) ; 
msu_flash_erase_sector(MSB, next_sector) ; 


/* Save the record to both MSA and MSB */ 
msu_flash_write(MSA, msu_ptr, (BYTE *)r_ tlm, sizeof (tlm_record_struct)) ; 
msu_flash_write(MSB, msu_ptr, (BYTE *})r_tlm, sizeof(tlm_record_struct) }; 


/* Update counter for next time */ 
if (mext_sector == 0) 
msu_tim_rec_num = 0; 
else 
msu_tim_rec_num++; 


/* End of msu_save_ tlm() */ 
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Ine Nsu ger tim(tim record struct *r_tlm, 


{ 


* 


int msu_get_tlm() 


* 
* 
* 
* 
* 


int flag = NO_ERROR; 
DWORD msu_ptr; 
msu_ptr = (DWORD) (rec_num * sizeof (tlm_ 


msu_flash_read(MSA, msu_ptr, 
if 
{ 
/* Try the other Mass Storage Flas 
msu_flash_read(MSB, msu_ptr, (BYTE 
Lf (check cre(r tlm, sizeof (tim_re 
flag ERROR; 


return (flag) ; 


/* End of msu_get_tlm() */ 


Retrieve a telemetry structure from Mass Storage. 
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int rec num) 


record struct)); 


(BYTE*)r tim, sizeot (timoreccra struct); 
(check creiz tlm, sizeof (tlm_record 


struct)) != 0) 

ne 

*)r tlm, sizeof (tlm recerd structc) ); 
cord_struct)) != 0) 
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int msu_check_flash_ tlm() 


when the system is Reset to see if any 
been saved to the Flash. 


int msu_check_flash_tlm(void) 


{ 


Ime rec_num; 

DWORD msu_ptr; 

int tryb = FALSE; 
DWORD etime; 

ante flag = NO_ ERROR; 
Int wrap = FALSE; 


Elm recoraystrucereim; 
clm réecordsseruct *r tlim; 


/* First, check using MSA. */ 


/* Do a search looking for unused portions of the Flash. 


if ((rec_num = msu_flash_search (MSA) ) 


{ 


wrap (rec_num & TLM_WRAP) ? TRUE 
rec_num &= -TLM_WRAP; 


/* MSA has an empty location. 
msu_ptr = 


i 


{DWORD) (rec num * sizeof 


msu_flash_read'MSA, msu_ptr, (BYTE 
if (check_crctr_tlm, sizeof (tlm_re 
tryb = TRUE, 
} 
else 
tryb = TRUE. 


ie 


{ 


(tryb) 


if ((rec_num - meu_flash_search(MS 
{ 
/* ERROR Erase both MSA and 
msu_flash_erase (MSA) ; 
msu_flash_erase(MSB) ; 
rec_num e« 0; 
flag = ERROR; 


/* MSB has an empty location. 
wrap (rec_num & TLM_WRAP) 
rec_num &= ~TLM_WRAP; 


ay 
? TRUE 


— 


Check Flash for already stored telemetry records. 


/* attempt the same search with MSB. 


This is first called 
prior state history has already 


eee ee ee eee eee teehee eet eee eee eee eee eae ee eee eee eee eee / 


a7, 
!= NO TLM FIND) 


FALSE; 


(tlm_record_struct)); 


*)r tlm, sizeof (tlm_record_struct)); 
cord struct) ) 0) 


B/. 


B)) == NO_TLM FIND) 
MSB. And assume NO recorded data. */ 
FALSE ; 
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msu_ptr = (DWORD) (rec_num * sizeof (tlm_record_struct)) ; 


msu_flash_read(MSB, msu_ptr, (BYTE*)r_tlm, sizeof(tlm_record struct)) ; 
if (cheek cre(r_ tlm, sizeof(tim_ record _struct)) != 0) 
{ 
/* ERROR: Erase both MSA and MSB. And assume NO recorded data. */ 
msu_flash_erase (MSA) ; 
msu_flash_erase (MSB) ; 
rec num = 0; 
flag = ERROR; 
} 
else 
{ 
/* MSA had problems, but not MSB. So, erase MSA. */ 
msu_flash_erase (MSA) ; 


/* Now, process the last recorded record by using it as the most recently saved 
* history regarding the state of the spacecraft. 
2h 


/* If the record number returned from the search is not zero, then 
* assume that there is a prior record and this is not the first time 
* recording. 
* If the record number returned from the search is zero, then this could be 
* the first time recording (or at least first timer recording since the 
* Flash was erased). And thus, there is no history of data to examine. 


1f (flag == ERROR) 
{ 
/* No state history, both MSA and MSB have just been erased. 
* Begin as if ejection has just occurred. 
a 
msu_tlm_rec_num = 0; 
msu_tlm_last_rec_num = NO _ REC _NUM; 
msu_tlim_first_rec_num = 0; 


} 


else if (wrap == FALSE) 
{ 
if (rec_num == 0) 
{ 
/* Empty Flash */ 
msu_tim_rec_num = 0; 
msu_tim_last_rec_num = NO_REC_NUM; 
msu_tlm_first_rec_num = 0; 


else 


/* Flash has data, but no wrap around is in effect */ 
msu_tlm_rec_num = rec_num; 

msu_tlm_last_rec_num = rec_num - 1; 
msu_tlim_first_rec_num = 0; 

msu_get_tlm(&tlm_record, msu_tlm_last_rec_num) ; 


else if (wrap == TRUE) 
/* Flash has data, and wrap around is in effect */ 
msu_tlm rec _num = rec_num; 
if {rec_num == 0) 
msu_tlm_last_rec_num 


0; 
else 

msu_tim_last_rec_num = rec_num - 1; 
/* calculate msu_tlm_first_rec_num */ 
msu_tlim_first_rec_num = msu_calc_first_rec(rec_num) ; 
msu_get_tlm(&tlm_record, msu_tlm_last_rec_num) ; 


} /* End of msu_check_flash_tlm() */ 
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* msu_flash_search() 


* Check Flash via a "top" binary search. That is, use an increasing memory 
* binary search to see if any “empty" tlm records exists (not recorded yet). 
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* When performing the "divide and conquer", always take the upper portion of 
* memory. 


* If no "empty" record is found, perform a search starting at the bottom and 
* look for the first "empty" record. This is not a fast search (its linear), 
* but there is no way around it since one has no idea where the first hole 

* could be and there is no ordering. 


* The "empty" record number is returned. 
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WORDmsu_flash_search(int device) 

{ 
WORDbottom, top, mid, r, sector; 
DWORD etime; 
DWORD msu_ ptr; 


/* Binary Search */ 

/* These are the end points of the tlm record storage. Attempt to find 
* an "empty" storage record. Assuming no lower "bottom" holes exist. 
oy 

bottom = 0; 

top = FLASH SIZE/sizeof (tlm_record struct) ; 

while ((top - bottom) > 1) 

{ 

mid = (bottom + top) /2; 
msu_ptr = mid*sizeof (tlm_record struct) ; 
msu_flash_read(device, msu_ptr, &etime, sizeof (DWORD) ) ; 
if (etime != OxFFFFFFFFL) /* in use, look higher */ 
bottom = mid; 
else 
top = mid; 


msu_ptr = bottom*sizeof (tlm_record_ struct) ; 
msu_flash_read(device, msu_ptr, &etime, sizeof (DWORD) ) ; 


if (etime == OxFFFFFFFFL) 
return(bottom | NO_TLM_WRAP) ; 
else if (etime == OxFFFFFFFFL) 


return(top | NO_TLM_WRAP) ; 
/* ELSE -> not found via binary search... continue....*/ 


/* Try a "bottom" based search. That is, use a decreasing memory 
* binary search. */ 
for (sector = 0; sector <= FLASH_SECTOR_MAX; sector++) 
{ 
r = ((sector+1) *FLASH_SECTOR_SIZE) /sizeof (tlm_record_struct) ; 
msu_ptr = r * sizeof (tlm_record_struct) ; 
msu_flash_read(device, msu_ptr, &etime, sizeof (DWORD) ) ; 
if (etime != OxFFFFFFFFL) /* in use, skip this sector */ 
continue; 
else 
{ 
/* Examine this sector for the first empty location */ 
/* Do this with a binary search within this sector */ 
bottom = (sector * FLASH_SECTOR_SIZE) /sizeof(tlm_record struct) ; 
top = (((sector + 1) * FLASH_SECTOR_SIZE) /sizeof (tlm_record_struct)) - 1; 
while ((top - bottom) > 1) 
{ 
mid = (bottom + top) /2; 
msu_ptr = mid*sizeof(tlm_record struct) ; 
msu_flash_read(device, msu_ptr, &etime, sizeof (DWORD)) ; 


if (etime != OxFFFFFFFFL) /* in use, look higher */ 
bottom = mid; 

else 
top = mia; 


msu_ptr = bottom*sizeof (tlm_record_ struct) ; 
msu_flash_ read(device, msu_ptr, &etime, sizeof (DWORD)) ; 
if (etime == OxFFFFFFFFL) 
return(bottom | TLM_WRAP) ; 
else if (etime == OxFFFFFFFFL) 
return(top | TLM_WRAP); 


} 


return (NO_TLM_FIND) ; 


} /* End of msu_flash_search() */ 
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} 


int msu_flash_erase_sector(int device, int sector) 


Erases appropriate sector in the Flash array. The sector is the absoulute 
sector for the entire array of Flash memory, thus the relative sector 
within the device must be determined, as well as the actual device itself. 
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msu_flash_erase_sector(int device, int sector) 


register BYTE fdata; 
register int pass = TRUE; 
DWORD base; 
int es 


/* First, determine which of the Flash devices contains the absolute sector. 
* The compares are quicker than using arithmetic . 
*/ 

if (sector < FLASH_SECTORS PER_DEVICE) 

base = OL; 

else if (sector < FLASH_SECTORS_PER_DEVICE*2) 

base = FLASH_DEVICE_SIZE; 

else if (sector < FLASH_SECTORS_PER_DEVICE*3) 

base = FLASH DEVICE SIZE*2; 

else if (sector < FLASH_SECTORS_PER_DEVICE*4) 

base = FLASH_DEVICE_SIZE*3; 


msu_set_faddr(device, (base + 0x00005S555L)); 

pcb _write(device+1, 0, (BYTE) 0xAA) ; 

msu_set_faddr(device, (base + Ox00002AAAL)); 

pcb _write(device+l1, 0, (BYTE) 0x55); 

msu_set_faddr(device, (base + 0x0000555SL)); 

pcb write(device+l, 0, (BYTE) 0x80); 

msu_set_faddr(device, (base + 0x00005555SL)); 

peb_write(device+1, 0, (BYTE) 0xAA); 

msu_set_faddr(device, (base + 0x00002AAAL) ) ; 

pcb _write(device+1, 0, (BYTE) 0xS5S) ; 

/* Relative sector within the Flash device in address bits A16 - A14. */ 
msu_set_faddr(device, (base + (sector*FLASH_SECTORS_PER_DEVICE) << 14))j; 
pcb write(device+1, 0, (BYTE) 0x30); 


fdata = pcb _read(device+l1, 0); 
<= OO; 
while (((fdata & 0x80) != 0x80) && (x < ERASE _TIME_LIMIT)) 


{ 


if (fdata & 0x20) 


{ 


fdata = pcb_read(device+1, 0); 


if ((fdata & 0x80) == 0x80) 
break; 
else 
{ 
pass = FALSE; 
break; 
} 
} 
fdata = pcb read(device+l, 0); 
X+4+; 


} /* End of WHILE */ 
pcb _write(device, 2, 0x48); /* Point to landing zone for low power */ 


if (x == ERASE_TIME_LIMIT) 
return(0x80 | sector); 
else 
return(0); 


/* End of msu_flash_erase_sector() */ 


[ERE E Stee e ee ELE LE ARA TELL eee A AREER AER RETR EA EEE EEE EES ER REAR ERR EREEEES 


* 


* 


* 


* 


int msu_calc_first_rec(int rec_num) 


Determine the first (oldest) record used in Flash based on the current 
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record number and assuming data wrap around is in effect. 


* 
* 
* This location is the first complete (whole) record in the sector after 
* the sector that contains the current record, rec_num. 

* 


REAR EEA AEA EKER EAAE EREDAR Rae eH ae / 


int msu_cale_first_rec(int rec_num) 


{ 


int s, snext, Yr; 


/* Determine the next sector */ 
s = (rec_num*sizeof (tlm_record_struct) )/sizeof (PFLASH_SECTOR_SIZE) ; 
if (s == FLASH _SECTOR_MAX) 
snext OF 
else 
snext = s + 1; 


/* determine # of complete records in Flash upto the next */ 
r = (snext*sizeof (FLASH_SECTOR_SIZE))/sizeof(tlm_record_ struct); 


/* the next complete record in the next sector is just the next record */ 
return (r+1); 


} /* End of msu_cale_first_rec() */ 


End of msu.h, msu.c 
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pcb.h, pcb.c 


/RAAAA ATA ATE Eee 


PCB .H 


Include file for Peripheral Control Bus (PCB) software interface. 


Petite Amateur Navy Satellite (PANSAT). 
Embedded ROM software. 


* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
* Jim A. Horning (Jah) 


Revision History: 


SS == == SS SS FS SE SE ET TE 


* Date Who What 

gr mee wrew ewe ne eee = tore ---=+ Peete ww ew Ke Ke ee He ee ewe twee ee eee ee eee ee ee ee eee ee 

* 4 March 1993 Jah Creation 

* 8 Sept 1995. Jah Adoption to PANSAT System Controller architecture 
¥ 

* 


ee OR SESS EEE SESE AE LEER ETHEL EEE EAEEEEAEAEEEEEE EER ERAEEKE REE RE RES © / 


#ifdef PCB 


void peb init (void) ; 

void peb_portc(int bitnum, int mode) ; 

unsigned int pcb _read(unsigned int select, unsigned int addr) ; 

void peb_write(unsigned int select, unsigned int addr, unsigned int value) ; 
#endif 


/* prototypes for modules other than pcb.c */ 
#ifndef PCB 


extern void peb_init (void) ; 

extern void peb_portc(int bitnum, int mode); 

extern unsigned int pcb _read(unsigned int select, unsigned int addr); 

extern void pcb_write(unsigned int select, unsigned int addr, unsigned int value) ; 
#Hendif 


/* Macros for PCBW and PCBR */ 
#define pcbw_m(select, addr, value) {\ 


outp(PCB PPI_PORTA, (value)); \ 

outp(PCB PPI _PORTB, PCB_READ OFF | PCB WRITE_OFF | ((select) & OxO000F) | (((addr) & 0x0003) << 4) )j 
\ 

outp(PCB_PPI_PORTB, PCB_WRITE_ON | ((select) & Ox000F) | (((addr) & 0x0003) << 4) ); \ 


outp(PCB_PPI_PORTB, PCB_WRITE_OFF | ((select) & Ox000F) | (((addr) & 0x0003) << 4) ); } 


#define pcbr_m(select, addr, value) {\ 


outp(PCB PPI_PORTB, PCB_READ OFF | PCB _WRITE_OFF | ((select) & Ox000F) | (( (addr) 


\ 


outp(PCB_PPI_PORTB, PCB_READ ON | ((select) & Ox000F) | (((addr) & 0x0003) << 4) ); 


GUtD(PCH PPI CIRL, 2);\ 
outp(PCB_PPI_ CTRL, 3);\ 


outp(PCB PPI_PORTB, PCB_READ OFF | ((select) & Ox000F) | (((addr) & 0x0003) << 4) ); 


(value) = inp(PCB_PPI_PORTA); } 


/teeee eee eee eee eee eee eee eee etree ete eee eet etek etre ete ere reek eee 
* 


PPI Interface on a DCS to control the Peripheral Control Bus. 


r 
* 
. Using Mode 2 (0xCO) the PPI is programmed to support strobed 

* bidirectional bus I/O using Port A. Port B is used as output, and 
: port C is used for handshaking and other output purposes. 

* 

* 


Port A contains the data (byte value) which is moved across the 
* control bus. Port B contains the device selection and sub-address 


* control bits, and the Read and Write strobes. 
* 


eeetee eee eee etek e eee eee eee eee eeeeeeeeeeee eee eee eee etree eee eee eee eee / 


#define PCB _PPI_BASE 0x100 

#define PCB_PPI_PORTA PCB PPI_BASE+0 
#define PCB_PPI_PORTB PCB _PPI_BASE+2 
#define PCB_PPI_PORTC PCB _PPI_BASE+4 
#define PCB_PPI CTRL PCB _PPI_BASE+6 


#define PCB PPI_INIT 0xCo 
/* Read and Write Line Toggling Controls */ 


#define PCB READ ON 0x40 
#define PCB READ OFF 0xCo 
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’ 


\ 


\ 


& 0x0003) << 4) ); 


#define PCB_WRITE_ON 
#define PCB_WRITE_OFF 


0x80 
O0xCO 


[etteeeteeeeke keke etek kk ak tit ttt tk tnt 


RRM HEE EME KKH RHEE KEKREHMKAHEKK KHER KKK KKK KKH 


#define 
#define 
#define 


#define 
#define 
#define 


#define 
#define 
#define 


#define 
#define 
#define 


#define 
#define 
#define 


#define 
#define 
#define 


#define 
#define 
#define 


#define 
#define 
#define 


Devices on the PCB 


- bits 0 (D3 - 


SCA 0x02 

SCAO SCA /* 
SCA1 (SCA+1) 

SCB Ox0OA 

SCBO SCB /* 
SCB1 (SCB+1) 
TMUXA 0x04 
TMUXAO TMUXA /* 
TMUXA1 (TMUXA+1) 
TMUXB 0x0C 
TMUXBO TMUXB /* 
TMUXB1 (TMUXB+1) 
MSA 0x06 

MSAO MSA /* 
MSA1 (MSA+1) 

MSB Ox0E 

MSBO MSB fe 
MSB1 (MSB+1) 

RF 0x00 

RFO RF /* 
RF1 (RF+1) 

EPS 0x08 

EPSO EPS /* 
EPS1 (EPS+1) 


/* EPS Selects S3-S0 */ 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


EPS _PORT_SO 
EPS PORT S1 
EPS PORT _S2 
EPS PORT S3 
EPS_PORT S4 
EPS PORT SS 
EPS PORT S6 
EPS _PORT_S7 


0x08 
0x08 
0x08 
0x08 
0x09 
0x09 
0x09 
0x09 


These devices are selected via the DCS PPI for PCB control. 
PPI port B is the addressing register. 
selects use bits 3 


The following device 
DO) of PPI Port B. 


Note that the low order bit (DO) is used to differentiate 
between the two selects on the same unit. 
are not included here, 


Device subaddresses 


Since they are particular to a device. 


teat ekte tee e eee tee te te teeter eee etek teak eee aka kath kk ek kk / 


System Control A */ 


System Control B */ 


Analog MUX A */ 


Analog MUX B */ 


Mass Storage A */ 


Mass Storage B */ 


RF System */ 


Electrical Power System */ 


/* EPS Sub-addresses A1-A0 */ 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


EPS PORT_AO 
EPS PORT Al 
EPS _PORT_A2 
EPS PORT_A3 
EPS PORT A4 
EPS PORT AS 
EPS PORT _A6 
EPS_PORT_A7 


0x00 
0x01 
0x02 
0x03 
0x00 
0x01 
0x02 
0x03 


[OR RR RT EERE EEE EEE EERE KEKE KEKE 


KRHA RRM HHRMA EKARAAKKKAAHHKKAKKKKKKAHKKKK 


* 


* Subsystem addresses of PCB devices 


* 


CATERER KERR ae / 


[RR RRR te TR TTT TOIT TOTO TT ETT TEETER 


* Mass 


* PPI Interface: 


* Data 


Storage 


Port: 


Indexed using MSx1l 
Indexed using MSx2 


WEEK EHH ERE A ERRATA ETE HEHEHE EEE EEEAEK EAE EH Eee eee eee eee eee eh / 
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#define MS_ PPI BASE 0 


#define MS PPI_PORTA MS_PPI_BASE+0 
#define MS PPI_PORTB MS_PPI_BASE+1 
#define MS _PPI_PORTC MS_PPI_BASE+2 
t#define MS_PPI_CTRL MS PPI _BASE+3 


{+e tt testa rr ron hk rrr ka ror nr a rN RO irri nit 


+ 


re PCH. C 

¥ 

* Interface routines for the Peripheral Control Bus (PCB). 
* 

* 


Petite Amateur Navy Satellite (PANSAT). 

Embedded ROM software. 

Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
Jim A. Horning (Jah) 


+ 


+ 


* 


* 

* Revision History: 

* se=eeeese5e5eeeSe== 

=) Date Who What 

eee edo tee eee aed See ee eee ae ea a a ea me meme ee ae 

* 4 March 1993 Jah Creation 

* 8 Sept 1995 Jah Adoption to PANSAT System Controller architecture 
See 24 April 1996 Jah Make PCB functions non-interruptable. 


+ 


teeeteretrrrerr rere eee eee eee ek ti sik / 


#include Egen ders -h" 
#include "gen_apis.h" 
#define PCB 

#include eocb. h" 
#undef PCB 

#include "des.n- 


PRATER AAA TEA TATA AAA AAA AAA AAA AAT EET ETAT EEE EEE EERE REET EEE 
*) ped linit () 
* Initializes the PCB by preparing the PPI controlling the PCB to work 


* in the bidirectional strobed data mode, and to make sure that no 
* read or write commands are occuring on the PCB. 


See eee rete eee ee ee kkk eet / 


void peb_init (void) 


{ 


outp (PCB PPI CTRL, PCB_PPI_INIT); 


outp(PCB_PPI_PORTB, 0xC0); 


peb_portc(0, OFF); /* Modem Power OFF */ 
Pew pertc(1, SET); /* PC1 = PPI Input Strobe ON */ 
eco. POLES (2, RESET) ; /* Reset EDAC Error Acknowledge */ 


pcb portc(2, SET); 
} /* End of pcb init() */ 


[AAAS ELEAEEEACKARAEE ATA KAA AAA AA ARAAAAEHTA AAA TEA EAA ARETE EERE RELATE RS EERE ER ES 


* 


pcb_portc() 


Toggles the three output bits of Port C on the PPI. 


* 
* 
* 
+ 


Tero ooo iii ik / 


void peb_portc(int bitnum, int mode) 
register unsigned char temp; 
register WORD state; 
mode &= 0x01; /* make sure only bit DO is used in mode */ 
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} 


State = disable ints() ; 


switch (bitnum) 


{ 


case 0: 
temp = mode; 
break; 


case 1: 
temp = 0x02 | mode; 
break; 


case 2: 


temp = 0x04 | mode; 
break; 


default: 


temp = OxFF; 


} 


1f (temp != OxFF) 
outp(PCB_PPI_CTRL, temp) ; 


2E (State) 
enable ints()j; 


/* End of pcb_portc() */ 


/*tteeteee eet eesti ass tas aaa a tt 


{ 


} 


* 
* 
® 
* 


* 


* 


* 
* 
* 
* 
* 


pcb_read() 


Read one data (byte) from the Peripheral Control Bus via the onboard PPI. 


tte ko oat or orotate / 


WORD pcb_read(unsigned int select, unsigned int addr) 


/* Note: register not used so that this routine is re-entrable 
* at the point of the last statement, return(temp). 
xf 
register WORD temp = (select & Ox000F) | ((addr & 0x0003) << 4); 
WORD value; 


register WORD state; 


State = disable ints(); 


/* Set Device Select and address without read or write commands */ 
outp(PCB_PPI_PORTB, OxCO | temp); 
outp(PCB_PPI_PORTB, 0x40 | temp); /* PB7 = /RD goes LOW */ 
outp(PCB PPI CTRL, 2); /* PCl 
outp(PCB PPI CTRL, 3); /* PCl 
outp(PCB_PPI_PORTB, 0xCO | temp); 


= /Strobe goes LOW */ 
= /Strobe goes HIGH */ 
/* PB7 = /RD goes HIGH */ 


value = inp(PCB_PPI_ PORTA); 


if (state) 
enable ints(); 


/* Note: enabling interrupts BEFORE returning from PCBR can result 

* in another piece of software (e.g. inside an ISR) calling PCBR 

* during the stack manipulations following the above _enable(). 

* This would actually result in the issuing of the new PCBR and 

* returning the value of the PCBR, followed by that piece of software 
* returning via an IRET, and then the PCBR that was interrupted would 
* coutinue with its return(...). 

= 


return (value); 


/* End pcb _read() */ 


[eet ee ee a EEE EEE aaa 


pcb_write() 


Write one data (byte) from the Peripheral Control Bus via the onboard PPI. 


wee tee eee eta tae eas ao sororities a site / 
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void peb_write(unsigned int select, unsigned int addr, unsigned int value) 
{ 

register WORDtemp = (select & Ox000F) | ((addr & 0x0003) << 4); 

register WORD state; 

state = disable _ints(); 


outp(PCB_PPI_PORTA, value) ; 


/* Set Device Select and address without read or write commands */ 
outp(PCB_PPI_PORTB, (PCB READ ON | PCB WRITE_ON) | temp); 


/* Toggle the Write line */ 
outp(PCB_PPI_PORTB, (PCB_WRITE_ON | temp)); 
outp(PCB PPI_PORTB, (PCB WRITE OFF | temp)); 


if (state) 
enable_ints() ; 


} /* End peb_write() */ 


End of pcb.h, pcb.c 
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print.h, print.c 


PRE EEE EEE EEE EK EEE EEE EEE EEE 


* 


* PRINT .H 

¥* 

* DCS printt: void dprint (char *format,...) 

* 

- Petite Amateur Navy Satellite (PANSAT). 

: Embedded ROM software. 

- Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
* Jim A. Horning (Jah) 

* 

- Revision History: 

* SSS => =SlfSe > 2 2S SS SS SS 

* 

* Date Who What 

, +------- +oc eee ee ee ee ee He ee eH HH eH HH eH ee ee ee HH HH HH He HH He 
e Pybep 1991 Jah Creation (Star) 

* 2 Nov 1993 Jah Adopted for DCS (from Star) 

* 

* 


CER E KEEEEEEEEEEEEE EK EEE EEE KEK KK ee / 


/* Include specifics for PRINT.C */ 
#ifdef PRINT 
/* Internal routines to print.c */ 


static int GCt widthichas *, int *); 

Static int get precision(char *, int *); 

static void Print “fp (char *obut, double xjoint precision, int width); 

Static void Print, per (char *;evo1d tars =;.1nG); 

Static unsigned long int power(unsigned int x, unsigned int y); 
#endif 


/* Include for all other modules */ 
#ifndef PRINT 

extern void eprint (char, *toimat, ..-.)); 
#endif 


[RRR EE EEE EEE EEE EEE EKER KK 


* 


*  PRINT.C 

* 

* BES printt: weid adprint (char *format,...) 

* 

* Petite Amateur Navy Satellite (PANSAT). 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
* Jim A. Horning (Jah) 

* 

* Revision Histoxuy: 

* SSS SSS ==== 

~ lace Who What 

Sastre es ett Beet east sons ee ee ee eee ee een eee ee 
* 1 Feb 1991 Jah Creation 

* 2 Nov 1993 Jah Adopted for DCS 

* le Apr 1996 Jah FP support 


* 


weeeeee eee keke eee eee eee ek ke / 


#include <stdarg.h> 
#include <ctype.h> 
#include <string.h> 
#include <stdio.h> 
#include <stdlib.h> 


#include "gen _defs.h" 


#define PRINT 
#include "print.h" 
#undef PRINT 


#include "scc.h" 


#define NEGATIVE 
#define PLUS 

#define NEAR_PTR 
#define FAR_PTR 


NPN PR 


[ox ee EEE EEE EERE 


198 


* get_width () 


* 


* 


Get the width for a specific output parameter. This is a number field 


* placed in front of the format type of a star_print format. This 

* number is either followed by a format type (letter) or a period (.). 
* The period denotes that a precision field will also be specified. 

*x 

* This routine outputs the width. 


* 


einen ee eX EERE TASK ARE REAR K ELE EREEE KER ETERRERETERTEKEES © / 


Seatic int get_width(char *format, int *i) 


{ 


int itemp; 
char buf [10) ; 
int Ty 


Ltenp = *1i; 
noo 
buf(n) = NULL_CHAR; 
while (isdigit (format [itemp] )) 
buf (n++] = format [itemp++] ; 
buf(n] = NULL CHAR; 


*i = itemp; /* update the marker in format string */ 
return (atoi (buf) ) ; 


} /* End of get _width() */ 


[RRR ee EERE EEE EEE EEE EE EEE EEE EEE Ei 


* 


* get_precision() 
* 


* 


Get the precision for a specific output parameter. This is a number 
field which can be preceeded by a + (default) or -. This number is 


* 


* then followed by a format type (letter). 

¥ 

* See print_fp() for more details. 

* 

* This routine outputs the precision which can be positive or negative. 


* 


Ree RRA TERETE EKA ee / 


Seatcic int get_precision(char *format, int *i) 


{ 


Int itemp; 
char buf [10] ; 
int n; 

int sign; 

int precision; 


itemp = *i; 
Sign = PLUS, 
if (format litemp] as ‘'-') 
{ 
S1gn + NEGATIVE; 
ilempee, 
} 
else if (formar litemp] «= ‘'+') 
rCempes, /* already is PLUS don't need to flag this */ 


n= Q; 
buf[n}) = NULL CHAS. 
while (1sdigit format [i1temp})) 
buf [me+! + format [itemp++] ; 
buf [n] = NULL CHAR, 


precision = atoitbuf), 
if (sign =+* NEGATIVE) 
precision *= -1; 
*i = itemp; /* update the marker in format string */ 


return (precision) ; 


} /* End of get_precision() */ 


[PEER EAREEET EE AREER EEERERAAEARARERERREREEEEEHEHEEE EERE EEREREEENEN EEE EWN RENE SE 
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prent fp() 


x 

* 

* 

. Display value of a floating point number, either float or double. 

x (The float is already casted as a double when passed to this routine. 
x 
* 


HO EK EE EET REE EE KEE EEE EEK EEE EERE EEE EEE KEE EEE EK RK EE / 


Static void print fp(char *obuf, double x, int precision, int width) 


{ 


char buf [40]; 

aT but (cnt = "0; 
double Go a) wage; 
long ine xi, da; 

Int jos 


GCVE(xX, precision, buf); 
Strcae(obur, buf) ; 
Te iteUlitalit 


Le (x == 0.0) 


{ 


buf [buf_cnt++] i 
buf [buf_cnt++] ae oe 
buf [buf_cnt++] = '0'; 
buf [buf cnt] = NULL_CHAR; 
strcat(obuf, buf); 

BEGUr; 


/* Adjust precision to correct defaults for FP printing */ 
if (precision > 8) 

precision = 8; 
if (precision < 0) 


precision = 0; 
Iietec< 40.0) 
{ 

buf [buf _cnt++] = '-'; 


x *= -1; 


} 


/* Determine # of digits BEFORE the decimal place */ 
POG =, = x) G > eater) 


q /= 10.0; 
if (c == 0) /* add leading zero before . -> 0.xyz */ 
buf [buf_cnt++] = '0'; 


/* Display the digits BEFORE the decimal place */ 
for (q = x, n = 0; n < cj n++) 
{ 


Gd =" power (lO (c-1)-n); 


ql = q/d; 

buf [buf_cnt++] = '0' + (unsigned int)ql1; /* TOP digit */ 

q2 = (unsigned int)ql * d; /* Only the most significant */ 

Ge G2: /* Remove largest factor of 10 */ 
} 
buf [buf_cnt++] = '.'; 


for (n = 0; n < precision; n++) 


{ 


Qq=q* 10; 

ql = (unsigned int) q; {/*>0. xyz ==> X.yz */ 

buf [buf_cnt++]} = '0' + ql; /* TOP digit (x) */ 

q=q- ql; /* remove largest factor of 10 */ 


} 


buf [buf_cnt++] = NULL_CHAR; 
streat (obuf, buf); 
return; 


}eerseenasot print fp() */ 


[RRR RRR EERE RRR RRR REE RRR RE RE EK KEK KEKE EEE KEK EKER EEE KKK RE REE ER ERE 
® 


* Printeper () 
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* Pointer print for FAR pointer (SEGMENT:OFFSET) or 


* NEAR pointer (OFFSET). 

* The parameter mode indicates if this is for NEAR or FAR pointer 
* printing. 

* The format for output is: 

* 4) al 

* (char position) 01234567890 

NEAR xxXxXX <-- the OFFSET 

* FAR XXXX:Yyyy <-- the OFFSET: SEGMENT 


teeter rrr ki rion tick ein / 


Static void print_ptr(char *tobuf, void far *ptr, int mode) 


{ 


ant n; 
unsigned char ge 

char . but [10]; 
int b_ent; 


unsigned long Pp; 


if (mode == FAR_PTR) 
Decnt = 9; 
else 
bocnt = 4; 
p = (unsigned long int) ptr; 
buf (b_cnt--] = NULL_CHAR; 
torn, (; bocnt >= 0; pDucnt--) 
{ 
c = (unsigned char) (Ox0000000FL & p); 
if ((¢ s2 0) && (c <= 39)) 
bubiibecnt| = c +0"; 


else 
buf [(b cnt] = (c - OxOA) + 'A'; 
p >>= 4; 
/* p>>2=1; p>>=1; p>>=1; p>>=1; */ 
1£ “(beent == 5) 


buf [--b_cnt) = ':'; 


} 


streat(obuf, buf); 


fey End of print ptr () */ 


f/eeeeerererteretrke eee eee dete eee kere eter eee eae eee 


* dprint () 

* 

* Printe for DCs. 

* Special characters (translated by compiler!) 
* 2\n* CRLF 

: a \ 

* He a + 

¥ 

* Format: *{width) [.precision) [size] type 
r 

* Types 

* zc char 

* <s string (char *) 

* sd int (as decimal) 

* <1 Te 

* tu unsigned int 

. ‘x int (as hex) 

* +X int (as HEX) 

* ‘<p NEAR pointer (OFFSET) 

* +P FAR pointer (SEGMENT: OFFSET) 
eo fp (%1f -> double, %*f ->float) 
* 

sce 

- L/1l - long 

* H/h - short 


etree terre eee eter eee eee eee eae ee / 


void dprint(char *format,...) 
va_list arg _ptr; /* ptr to argument list */ 
Drie i; /* index in format string */ 
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int 
long 
double 
char 
char 
void 
void 
static 
static 
att 
int 
int 
static 
int 


Eemp int; 

temp _long; 

temp _fp; 

temp char; 

*temp charptr; 

far *tCemp_ ptr; 

“temp ptr near; 

char buf [20]; /* temp buffer */ 

char obuf [200]; /* the output buffer */ 
hflag, flag; 
hex_upper; 

width, precision; 
char cre (4) = 
n; 


{CR, LF, NULL_CHAR}; 


/* start variable arguement fetching */ 


va_start(arg ptr, 


i= 0; 


obuf [0] 


while 


{ 


hex_upper = 
width = 


(format [i] 


format) ; 


= NULL_CHAR; 
{= NULL_CHAR) 
hflag = 


lflag = FALSE; 


100; 


precision = 3; 


but [o)— 


NULL_CHAR; 


Switch (format [i] ) 


{ 


case CR: 

case LF: 
L++; 
Streat (obuf, 
break; 


Crile); 


'S!: 
i++; 


case 


/* width ? */ 
if ((format [i] >= 


{ 


'O') && (format[i] <= '9')) 


Jt Aste: */ /* or more */ 
width = get_width(format, &1)j; 
/* .precision ? */ 
if (format[i] == '.') 


i++; /* or more */ 
precision = get_precision(format, &i); 


ie cermatt == hamlet cormati iy ==) OH) 9 
{ 
i++; 
hflag = TRUE; 
/* set h flag */ 
} 
1£°((f£ormat [1] == '1') [)) (format [i] =- *i")) 
« 
1l++; 
lflag = TRUE; 
/* set 1 flag */ 
} 
switch(format [i])/* TYPE */ 
{ 
case “d': 
case 'D': 
case ‘i': 
case 'I':; 
i++; 
if (lflag) 
temp_long = va_arg(arg_ptr, long); 
else 
temp_long = (long)va_arg(arg ptr, int); 
ltoa(temp_long, buf, 10); 
Strncat(obuf, buf, width); 
break; 
ease "uw": 
ease 'U". 
1++; 
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if (lflag) 
temp_long = va_arg(arg_ ptr, long); 
else 
temp_long = (long)va_arg(arg ptr, int); 
ltoa(temp_long, buf, 10); 
strncat(obuf, buf, width); 
break; 


case ‘'X': 
hex upper = TRUE; 
case ‘x': 
l++; 
if (lflaq) 
temp_long = va_arg(arg ptr, long); 
else 
temp_long = OxO000OFFFFL&(long)va_arg(arg ptr, int) ; 
ltoa(temp_long, buf, 16); 
if (hex_upper) 
for (n = 0; buf[n] != NULL_CHAR; n++) 
buf[n] = (char) toupper (buf [n]) ; 
strncat (obuf, buf, width); 
break; 


case ‘'c'; 
case 'C'; 
Ll++; 
temp_int = va_arg(arg ptr, int); 
temp _char = (char) (temp_int & OxOOFF) ; 
buf[0] = temp_char; 
buf[1] = NULL_CHAR; 
strceat(obuf, buf); 
break; 


case ‘'s': 
case 'S'; 
i++; 
temp _charptr = va_arg(arg ptr, char *); 
streat(obuf, temp charptr) ; 
break; 


ease *t*: 
case 'F': 
i++; 
if (lflag) 
temp_fp = va_arg(arg ptr, double) ; 
else 
temp _fp = (double)va_arg(arg ptr, float); 
print_fp(obuf, temp fp, precision, width) ; 
break; 


case "p™: 
i++; 
temp ptr = (void far *)va_arg(arg ptr, void *); 
print ptr(obuf, temp _ptr, NEAR_PTR) ; 
break; 


case 2! : 
l++; 
temp ptr = va_arg(arg ptr, void far *); 
print ptr(obuf, temp ptr, FAR_PTR); 
break; 
default: /* not supported */ 
L++; 
break; 
} /* End of SWITCH */ 
Break; /* End of CASE *%" */ 
default: 
Sstrncat(obuf, (format+i), 1); 
l++; 
break; 
} /* End of SWITCH */ 
} /* End of WHILE */ 


/* send to serial port */ 
put_string(obuf) ; 


va_end(arg ptr) ; 
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} /* End of dprint() */ 


[ERRATA EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EET EEE EEE EERE EE EE EEE EE 
* 

* pow () 

* 


eeekekekeeekeaeeeke keke eekeee eee eee tee kere ket eee eee kha eee ekeeee eee kee ee / 


unsigned long intpower(unsigned int x, unsigned int y) 
{ 


unsigned int 


1; 
unsigned long intp; 
p=1; 
for (i = 1; i <= y; i++) 

pS 


return (p) ; 
} /* End of pow() */ 


End of print.h, print.c 


204 


rf.h, rf.c 


/eeteee eee te teeter terete etree tte tte tet teeter ate tk as 


* 


= RF.H 


* 


* Defines for the RF unit interface routines. 


* 


* 


Petite Amateur Navy Satellite (PANSAT). 


* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
* Jim A. Horning (Jah) 

® 

* Revision History: 

* el 

* Date Who What 

a eee ere re me een tere eta fore ee--- teem ee em em eK KH He em em em em eM ne eH ne ne ee ee er nr er ee er ee ee ee er ee ee ee 

= 30 Oct 1996 Jah Creation 


keke eee eee eee eee eee e rere tek eee eee eee eee eee eee eee eee eee eee ee ee / 


#define RF_HPA a 
#define RF_LNA 6 
#define RF LHP LHA 3 
#define RF _LOP_LOA 2 
#define RF TX _RX1l 
#define RF_TR 0 
#ifdef RF 
#define TOCON OxFF56 
#define TOCNT OxFF50 
#define TOCMPA O0xFF52 
#define TOCMPB OxFF54 
#define T1CON OxFF5E 
Wdefine TI1CNT OxFFS8 
#define TICMPA OxFFSA 
#define T1CMPB OxXFFSC 


Static void 
Static void 
Static void 
static void 


rf_power(int mode) ; 

rE Settint ctrl, int mode} ; 
rf_timer(int delay); 
rf_txpower (int mode) ; 


#endif 


#ifndef RF 
extern void 
extern void 
extern void 
extern void 


rf_power(int mode) ; 

ri set (int ctrl, int mode) ; 
rf_timer(int delay) ; 
rf_txpower (int mode); 
#endif 


/ReA eee ee eee eee eee eee eee eset eee ket ee eee kee eee eee eee ee eee eee eee eee ee ET 
* SRF .C 
* Interface routines for the RF unit. 


* Petite Amateur Navy Satellite (PANSAT). 
* Embedded ROM software. 


* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
* Jim A. Horning (Jah) 

* 

* Revision History: 

* S2eSS2s525>2222s2=2s==== 

* Date Who What 

&¢ iewwseeeweww ew onw a = — +------- +e ee He we eH eRe eH eR RH eH eH Re Re ee ee ee ee ee ee eee ee te ee ee ee 

* 30 Oct 1996 Jah Creation 


eee tee ee eee eee ee seeker eee eee eee eee eee eke eee eee te sete eee eee eee / 


#include "gen defs.h" 
#define RF 
#include "rf.h" 
#undef RF 
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Statievint ¥rfiupeb = 0; 


PERE READE TEASE AEE ET ESR EK ER Re SES eee BR Sees eae ee eee eee 


* 


voidrf_power{int mode) 


x 
* 
* Used to turn on or off the power to the entire RF unit. 
® 
® 


HO EEE tk / 


voidrf_power(int mode) 


{ 


eps _set_power(RF, mode) ; 


} /* End of rf_power() */ 


[ERA RH EEE EEE EEE EERE EEE EEE EE EEE EEE EE EEE ERE EATER EEE EEE EEE EEA EAEEEE 


* 


Vold rr set{int ctrl, 


* 
* 
* Allows individual bit control of the RF PCB controls. 
* toggled preserving other control bits. 
* 
* 


int mode) 


Any bit can be 
Note: the LNA logic is reversed. 


Ree aA a ae / 


Velarr Set (int ctrl, int mode) 


{ 


Switch (ctrl) 
{ 
case 
case 
case 
case 
case 


RF_T_R: 
RF_TX_RX: 
RF_LOP_LOA: 
RF_LHP_LHA: 
RF_HPA: 

if (mode == ON) 


me peo. |= (ii<< Ctrl); 


else 


rf_peb &= ~(1 << ctrl); 


pcb write (RF, 
break; 


case RF_LNA: 


G7) rt pcb); 


/* reversed logic for LNA control: this is because when the RF 
* unit goes on, you want an LNA on by default. 


v7, 


if (mode == OFF) 


piepeb: je (1 (<< Ctrl): 


else 


rE pob &= ~(1 << ctrl); 


pceb_write(RF, 
break; 


default: 
break; 


} 


} /* End of rf_set() */ 


GO, Zt ped); 


[oR a ter ei REET EEE EEE EEE EEE EEE 


* 


voidrf timer(int delay) 


count, internal clock, 


+ + + + HF 


retrigger, using Compare A only. 
to use an external clock (output of Timer 0), 


Begins the RF transmitter timer using delay as a parameter (in seconds). 
Timers 0 and 1 are used in the cascade mode. 


Timer 0 is set to a maximum 
Timer 1 is set 
in a one shot mode, using 


* the dual mode Compare A/Compare B. 


* 


eee ae / 


voidrf timer({int delay) 


{ 


Outpw(TOCNT, 0); 
outpw(TOCMPA, 0); 7% 
outpw(TOCON, 0xC001) ; Es 
outpw(TICNT, 0); 
outpw(T1CMPA, 1) ; /* 


outpw(T1CMPB, delay * 28); 


outpw(T1CON, OxC006) ; /* 


maximum count (65536) 
internal clk, 


a 


retrigger, CMPA only */ 


smallest compare A */ 


/* ~28 CMPB per second */ 
ext. clk, 1 shot, CMPA/CMPB dual mode */ 
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fey *® End of rf timer() */ 


PEER ETE AEE EE EEE EEE REHEAT TEETER ERE Ee 
x 

* voidrf txpower(int mode) 

r 
* Change power level of the transmitter by controlling the 2-bit 
* attenuator. 

x 

x 


ao ee eee ee eee eee eee RATES TTT EW SCE TERETE Ree eee eee ee eee wee eee / 


voidrf txpower({int mode) 


{ 


rf_pceb ~= OxCF; /* mask off all power bits (set to 0) */ 
rf peb |= ((mode & 0x03) << 4); 
peb_write(RF, 0, rf_pcb); 


} /* End of rf_txpower() */ 


End of rf.h, rf.c 
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scc.h, scc.c 


PERRET EEE EEE EE AEE EEE ee 


* 
¥ 
¥ 
¥ 
* 
¥ 
¥ 
* 
¥ 
¥ 


¥ 
¥ 
* 
¥ 
¥ 


¥ 


SCG 


SCC 


Petite Amateur Navy Satellite (PANSAT). 
Embedded ROM software. 


Copyright 


(c) 1996 Space Systems Academic Group, 


Naval Postgradate School. 


Jim A. Horning (Jah) 


Revision History: 


See ae a ae ee ee 
i 


17 July 1996 


Jah Creation 


RR EEE EEE EAE AER EEE EE aE EE RE eet / 


typedef struct 


{ 


BYTE 


BYTE 


|) sec instr struct; 


#define 
#define 


#define 
#define 


#define 
#define 
#define 
#define 


#ifdef 


reg; 
data; 


SCCA 
SCCB 


SCC_CHA_BUF_SIZE 
SCC_CHB BUF SIZE 


SCCA_CMD 
SCCA_DATA 
SCCB_CMD 
SCCB_DATA 


See 


#define CHA_BUF_SIZE 
#define CHB BUF SIZE 


unsigned 
unsigned long int cnv_lhex(char buf []); 


char 
void 
void 
void 
void 
void 
BYTE 
void 
void 
void 
void 


#tendif 


#ifndef SCC 


extern 
Coa tani 
extern 
CxCe rat 
extern 
extern 
CxXEPe rn 
extern 
extern 
extern 


extern 
extern 
extern 


exGe wel 
Sateen 


516 
2048 


/* Channel A Command */ 
Channel A Data */ 
/* Channel B Command */ 
/* Channel B Data */ 


ron nN 
~ 
4 


SCC_CHA BUF SIZE 
SCC_CHB_ BUF SIZE 


envihex(char buf!) ); 


get_char (void) ; 
get_string(char *string, 
put_string(char *string) ; 
hex_ascii_dump(BYTE *ptr, int count); 

Scc init void); 

scc_write table(scc_instr_struct table[], int channel) ; 
serial in(voeid); 
Serial cue (aye c); 
scca_wreg(int reg, 
sccb_wreg(int reg, 
scc_hunt (void) ; 


int max); 


int value); 
int value) ; 


unsigned cnv_hex(char buf[])); 
unsigned long int cnv_lhex(char buf[)) ; 


char 
void 
void 
void 
void 
void 
BYTE 
void 


void 
void 
void 


BYTE 
BYTE 


get_char (void) ; 
get_string(char *string, 
put_string(char *string) ; 
hex_ascii_dump(BYTE *ptr, 
SCGeInit(voud); 

scc_write table(scc_instr_struct table[], int channel) ; 
serial_in(void) ; 
serial out (BYTE c); 


int max); 


int count); 


scca_wreg(int reg, 
sccbh_wreg(int reg, 
scc_hunt (void) ; 


int value) ; 
int value) ; 


cha_in_buf0[); 
cha_out_buf0[); 
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extern BYTE Exa> 

exCern by le rx_eom; 

extern BYTE hunt ; 

extern WORD a_txunderrun_eom; 

extern WORD a_rxoverrun; 

extern WORD a_brk_ abort; 
#endif 


PRP CTT TET EEE EEE EET EEE ETT ET eee 


+ 


Sec. c 
* 
* Petite Amateur Navy Satellite (PANSAT). 
* Embedded ROM software. 
* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
* Jim A. Horning (Jah) 
* 
Pe xevision History: 
* == SSS-SSSSSSS2eSeS== 
* Date Who What 
ae ne cae oes a om) ae eae es) e$----- ee 
feel? wuly 1996 Jah Creation 
* 
¥ 


#include 
#include 


SHEE TET ERE TERETE RATER TERE EEE ERE ERE Eee Kee eee eT ee Ae ETEK eee eee ee ees / 


ejen cers sn" 
“gen _apis.h*" 


#include <stdio.h> 
#include <stdlib.h> 
#include <string.h> 


#define 


#include 


#tundef 


#include 
#include 
#include 


WORD jim 


WORD b1 
WORD b2 
WORD b3 
WORD b4 
WORD al 
WORD a2 
WORD a3 
WORD a4 


oooo oo 0 © 


scc 
"sec .h" 
scc 


"dces.h" 


"print .h* 
"terms .h" 


0; 


we =e 


=. wr Me 


=, 


Bcc instr_Struct scca_init[] = 


{ 


he 


{Ox09, O0xcO}, /* force hardware reset */ 
{Ox04, 0x20}, /* x1 clock, SDLC mode, SYNC mode */ 
{Ox01, 0x00}, /* disable DMA and interrupts */ 
{0x02, 0x00}, /* zero interrupt vectors */ 
{0x03, 0xCc8}, /* Rx 8 bits, Rx CRC enabled */ 
{0x05, 0x61}, /* Tx 8 bits, Tx CRC enabled */ 
{O0x06, 0x00}, /* SDLC address field */ 

{0x07, Ox7E}, /* AUTO RTS, EOM, TX flag */ 
{0x09, 0x22}, /* No vector and no INTACK */ 
{Ox0A, OxAO}, /* CRC preset=1, NRZI, Flag idle */ 
{0x0B, 0x09}, /* TxCK=TRxC, RxCK=RTxC */ 
{Ox0C, Ox2E}, /* TCL 76,800 Hz */ 

{OxOD, 0x00}, /* TCH */ 

{Ox0E, 0x02}, /* BRG=PCLK, DPPL=BRG */ 

{Ox0E, 0x03}, /* Enable BRG, BRG=PCLK */ 
{ox03 , Oxc9}, /* Enable RX, CRC */ 

{0x05 , 0x69}, /* Enable TX, CRC */ 

{ox00 , Ox80}, /* Reset TxCRC */ 

{Ox0f , 0x00}, /* clear all IE bits */ 

{0x00 , 0x10}, /* reset ext/status */ 

{0x00 , 0x10}, /* reset ext/status */ 

{0x01 , 0x10}, /* int on all Rx or special */ 
{Ox09 , Ox2A}, /* enable interrupts}; */ 

{OxFF,  OxFF} /* End */ 


scc_instr_struct sccb_init[] = 
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foxos eoxad}), /* x16 clock, 
(Ox63,8 OxCO)}), /* Rx 8 bits, 
{ox0S, 0x60}, /* Tx 8 bits, 
{OoxoB, 0x56}, /* 
{oxoc, 0x16}, /* TCL */ 
{ox0D, 0x00}, /* TCH */ 
{OxoE, 0x02}, /* */ 
{OxdE,) 0x03), /* —*/ 
(OxOS;m0xcl)}.. /* Rx 8 bits, 
{0x05, Ox6A}, /* Tx 8 bits, 
{OxFF, 0OxFF} /* End */ 

); 

BYTEhunt = FALSE; 

WORDa_txunderrun_eom = 0; 


WORDa_rxoverrun = 0; 
WORDa_brk_abort = 0; 


BYTE cha_in_buf0O[CHA_BUF_SIZE] ; 
BYTE cha_out_buf0[CHA_BUF_SIZE] ; 
BYTEtxa = OFF; 

BYTE rx_eom = FALSE; 


BYTEchb_in_buf [CHB_BUF_SIZE] ; 
BYTE chb_out_buf [CHB_BUF_SIZE] ; 


iat chb_in_now = 0; 

int chb_in_next = 0; 
Int chb_out_now = 0; 
int chb_out_next = 0; 


1 stop, no parity */ 
Rx disabled */ 
DER] RUS, Tx Off */ 


Tx & RxX=BRG, TRxC=BRG */ 


Rx enabled */ 
Tx, RTS enabled */ 


PERERA EEEE EE RERELE EERE EEE AKER EREREEREREREKETEEREEEEEHEEEEESESE EEE EE ELE EE EEE 


* 


* cnv_hex() 
¥ 


KEKE AEE EEE eee Ae / 


unsigned cnv_hex(char buf []) 


{ 


ane ls 

unsigned int val = 0; 
i = 0; 

while (buf[i] != '\0o') 


{ 


val *= 16; 
fe *** 
/* af  (isdigic (but [i)))— *7 
/* ** 


if ((buf[i] >= '0') 

val += buf[i] - '0'; 
else 

val += toupper (buf [i] ) 
1++; 


} 


return (val); 


} /* End of cnv_hex() */ 


&& (buf[i] <= 


ERROR ** w/ MSC6.0 compiler run-time lib*/ 


ERROR ** w/ MSC6.0 compiler run-time lib*/ 


'g9t)) 


- ‘At + OQx0A; 


[EKER EERE EEE eee eee eA 


* 


* cnv_lhex() 
* 


weeee eee eee eee eee eee eke eke eee eee etek kkk eke keke eee eee eke kee eee eee eet / 


unsigned long int cnv_lhex(char buf []) 


{ 
int i; 


unsigned long int val = 0; 
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t= 0; 
while (buf[{iJ != '\0') 


{ 


val t= 16; 
og ** ERROR ** w/ MSC6.0 compiler run-time lib*t/ 
= Z£ (xsdroit (bul ([1j})) */ 
/* ** ERROR ** w/ MSC6.0 compiler run-time lib*t/ 


if ((buf[(ij] >= '0') && (buf[i] <= '9')) 
Val) += buf fi] = ‘oOo’; 


else 
val += toupper(buf[i]) - 'A' + Ox0A; 


1++; 


} 


return(val); 


} /* End of cnv_lhex() */ 


/eteeeeerettrererterereretertserterrrererre rrr reeset er rrr etree rete eet 
® 


= get_char () 


eretererrrrrrrrrrrerrtertigtrrrrrrrrrrrrrrrrerrrrttrrrrtrrrrrttrrrtetete reeds / 


charget_char(void) 


{ 
while (!is_serial_in()) 


return(serial in()); 


} /* End of get_char() */ 


/teereetereeesrrtr errr reese reese ee eeererrreeeere eres errr reree terete ees 
get_string() 


Get a character string delimited by an ENTER and null-terminate 
* it. Can only accept upto max characters. 


etetertterrrrrererererrerrrrrrrrrrrrtrrrtrttertrrrttttinrtererictteterereretest / 


voidget_string(char *string, int max) 
register char c. 
register int i; 


i = 0; 
¢ = get_char(); 
while (c != CR) 
{ 
if (c == BACK SPACE} 


{ 


ey = 0) 


{ 
Pere 
Seria: out ( (BYTE) BACK SPACE) ; 
,Betias out (BYTE)' '); 
seria. out! (BYTE) BACK SPACE) ; 
} 


else if (1 + max 


{ 


Stringlieej] «= c, 
serial out ((BYTE}c) ; 


© ="96t Char (): 
} /* End of WHILE */ 


string[i] = NULL_CHAR; /* Note: CR not saved - NULL instead */ 


} /* End of get_string() */ 
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[RRA EERE EEE EEE EAHA EEEEE KRHA KKKKAAKKKKKKKAEKKaKE 
* 
* hex ascii dump () 
* 


koto ooo a Gti oto tot icici taki ik / 


void hex_ascii_dump(BYTE *ptr, int count) 


{ 


WORD val; 
int ie 


for (i = 0; i < count; i += 16) 


{ 
fOr Giese ioe 167 ++) 
{ 
val = ((WORD)*(ptr+i+j) & OxOOFF) ; 
if (val < 0x10) 
aprant ("0"); 
aprint ("SX ", val); 
} 
Gourint(" ") ; 
for (] = 0; j < 16; j++) 
{ : 
val = ((WORD) * (ptr+i+j) & OxOOFF) ; 
if ((val >= 32) && (val <= 127)) 
a@print ("se",* (ptr+i+j)); 
else 
aprint(™ .") ; 
} 
apriIng ( <n") ; 


} 


} /* End of hex_ascii_dump() */ 


[eee keke eee eke eee eee eee eke eek eee eee eck eke eee keke eek keke ks 
put_string() 


* 
* 
* Send a null-terminated character string to the serial port. 
* 
* 


keke ikki tot oki tk tk ok tok tok i tok kt kkk / 


voidput_string(char *string) 


{ 


register WORD state; 


while (*string != NULL_CHAR) 
{ 
chb_out_buf[chb_out_next++] = *string++; 
if (chb_out_next > CHB _BUF_SIZE-1) 
chb_out_next = 0; 


State = disable ints(); 
if (inp(SCCB_CMD) & 0x04) 
{ 


outp(SCCB_ DATA, chb_out_buf[chb_out_now++]}); 


if (chb_out_now > CHB BUF _SIZE-1) 
chb_out_now = 0; 


} 


if (state) 
enable ints(); 


} /* End of put string() */ 


[8% tee a a EEK R A RRKRaa 
* 


* SS seceinit {) 
* 


RR eee ee ERE EERE EAE EEE AEE aE aE ee / 


voidsec_init (void) 


{ 


scc_write_table(scca_init, SCCA) ; 
scc_write table(sccb_init, SCCB) ; 


} /* End of scc_init() */ 
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FUPeeeeeaeeae eee ee eee ee eee ee ae eeeeeeeeeeeeeeeeeaeeeaeeeeeeeeeeeeeeeeeeereaeeaest 


© 


* scc_write_table() 


® 


errreeeeretetrseteeeeeeeaererdeee seers sree sere aa sae eee / 


voidscc_write_table(scc_instr_struct table(], int channel) 


int Xx; 
int port; 


port = (channel == SCCA) ? SCCA_CMD : SCCB_CMD; 
inp (port) ; /* read status */ 


for (x = 0; table[x].reg != (BYTE)OxFF; x++) 
{ a 

outp(port, table [x] .reg); 

outp(port, table[x] .data) ; 


} /* End of scc_write table() */ 


[RARE TAA TAA AAA 


* 

* serial_in() 

® 

* Serial input. Check to see if kbhit() was called to see if there 
* was a key pressed (and thus the key pressed has already been 


* retrieved and saved), if so return this. Otherwise, return 0. 
* 


eetteeeeeeeeeeeeeree eee eee eee eeeee eee eee eeeee reeset erste ae eet / 


BYTE serial intvo1d) 


{ 


register BYTE key; 


if (chb_in_now == chb_in_next) 
key = 0; 


else 


{ 
key = chb_in buf [chb_in_now++]; 
if (chb_in_now > CHB _BUF_SIZE-1) 
chb_in_now = 0; 


return (key) ; 


} /* End of serial_in() */ 


P/M ATA eee ee eA TAA AAA AAA TARA TATA ATTA ATA AAA AAA AAA 


® 
= 1s serial _in() 
* 


weeeeeeeeeeteeeeeeeeeeeeenteeeearaeeaeeaeekaeaeeeeeaaeeaeeeeraeereeeeeraereearee ass / 


int is_serial_in(void) 
{ 
if (chb_in_now == chb_in_next) 
return (FALSE) ; 


else 
return (TRUE) ; 


} /* End of is _serial_in() */ 


PRATT AEA AAA AAA AAA AAA ATA AAA AAT 
* 


=) serial out () 
* 


* Serial output. Add the given character to the wrap-around output buffer. 


* No check is made to see if the buffer is full. 
* 


Seeeweeerreeaeseeeeeeeeeereeeeaeeeeesrareeeeereeresrereereseetereeereeaesrsenene / 


void serial outh#BYTENc) 
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} aw 


register WORD state; 


chb_out_buf[chb_out_next++] = c; 
if (chb out next > CHB_BUF_SIZE-1) 
chb_out_next = 0; 


State = disable ints(); 
if ((inp(SCCB_CMD) & 0x04)) 
outp(SCCB DATA, chb_out_buf[chb_out_now++]) ; 


if (chb_out_now 
chb_out_now = 


> CHB _BUF_SIZE-1) 
0; 
} 
if (state) 
enable_ints(); 


* End of serial _out() */ 


/** +e dia sooo oii ioioniioiooio tik 


* 


* 


* 


scc_isr() 


(otra ionoaa ii iiiiianio ionic iit / 


void 


interrupt far scc_isr ( 
unsigned es, unsigned ds, 
unsigned bp, unsigned sp, 
unsigned cx, unsigned ax, 
unsigned flags) 
Static WORD save_rrO0b = 0; 
Static WORD save_rr0a = 0; 
Static WORD save_rrib = 0; 
Static WORD rr2b, rr3a; 
Static WORD rrOob, rrib; 
Static WORD rr0a, rrila; 
Jim++; 
do 
/* First, read the Interrupt Vector from Read Register 2. 


* unique SCC register (i.e. 
* Furthermore, 
=7 
inp (SCCB_CMD) ; 
outp(SCCB_CMD, 2); 
rr2b = inp(SCCB_CMD); 
switch (rr2b) 


{ 


/* Reset pointer bits */ 


case 0x00: 
blee, 
if (chb_out_now != chb_out_next) 


/* Ch B Tx buffer empty */ 


unsigned di, unsigned si, 
unsigned bx, unsigned dx, 
unsigned ip, unsigned cs, 


This is a 


it is not duplicate for both channels. 
this register is accessed from channel B. 


outp(SCCB_DATA, chb_out_buf[chb_out_now++]); 


if (chb_out_now > CHB BUF _SIZE-1) 


chb_out_now = 0; 


else 


{ 
} 


‘* no more to send out */ 


outp(SCCB_CMD, 0x28); /* WROB = 


Outpt{SCCB CMD, 0x38); 


break, 


case 0x02 
b2¢+¢,; 
outp(SCCB_CMD, 0); 
rrOb « inp(SCCB_CMD) ; 


/* Ch B Ext/Status change */ 


if ((save_rrOb & 0x80) * (rr0Ob & 0x80)) 
/* change in break/abort status */ 


inp (SCCB_DATA) ; 


214 


/* time to wrap-around */ 


Ox28 */ 


/* reset highest IUS */ 


if (rr0b & 0x40) /* Tx underrun/EOM detected */ 


{ 
} 


if (rr0Ob & 0x04) /* Tx buffer empty */ 


{ 


outp (SCCB_CMD, 0xC0); 


if (chb_out_now != chb_ out_next) 


{ 


outp(SCCB DATA, chb_out_buf [(chb_out_now++]}) ; 


if (chb_out_now > CHB _BUF_SIZE-1) 


chb out_now = 0; /* time to wrap-around */ 


} 


else /* no more to send out */ 


{ 
} 


outp(SCCB_CMD, 0x28); /* WROB = 0x28 */ 


} 


if {rrOb & 0x01) /* Rx data available */ 


{ 
chb_in_buf (chb_in_next++] = inp(SCCB_DATA) ; 
if (chb_in_ next > CHB _BUF_SIZE-1) 


chb_in_next = 0; /* time to wrap-around */ 
} 
save_rr0b = rr0ob; 
outp(SCCB_CMD, 0x10); /* xyeset ext/status intexpmapt */ 
outp(SCCB_CMD, 0x30); /* reset special Rx cond. status */ 
outp(SCCB CMD, 0x38); /* reset highest IUS */ 
break; 
case 0x04: /* Ch B Rx data ready */ 
b3++; 


chb_in_buf[chb_in_next++] = inp(SCCB_DATA) ; 
if (chb_in_next > CHB_BUF_SIZE-1) 


chb_in_next = 0; /* time to wrap-around */ 
outp(SCCB_CMD, 0x30); /* reset special Rx cond. 
outp(SCCB_CMD, 0x38); /* reset highest IUS */ 
break; 
case 0x06: /* Ch B Special Rx condition */ 
b4++; 


outp(SCCB_CMD, 0x01); 
rrlb = inp(SCCB_CMD) ; 


if (rrlb & 0x20) 


{ 
} 


if (rrib & 0x01) 


{ 
} 


/* Rx overrun error */ 


/* data has cleared the (SCC) transmitter */ 


outp(SCCB_CMD, 0x30); /* reset special Rx cond. 
outp(SCCB_CMD, 0x38) ; /* reset highest IUS */ 
break; 

case 0x08: /* Ch A Tx buffer empty */ 
al++; 
break; 


case Ox0A: /* Ch A Ext/Status change */ 
a2++; 
outp(SCCA_CMD, 0x00) ; 
rr0a = inp(SCCA_CMD) ; 
if ((save_rr0a & 0x80) * (rr0a & 0x80)) 
/* change in break/abort status */ 


{ 


a_brk_abort++; 
/* Force PA-100 into reacquire */ 


} 


if (rr0Oa & 0x40) /* Tx underrun/EOM */ 
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Status */ 


Status */ 


a_txunderrun_eom++; 
/-wourp (SCCA CMD, (0xC0); */ 


1f (rr0a & 0x10) 


{ 


hunt: =" TRUE; 
/* ignore break/abort */ 
/* setup DMA for frame receive */ 


else 


{ 


hunt = FALSE; 
/* allow break/abort */ 


} 


if (rr0a & 0x04) /* Tx buffer empty */ 
al++; 


if (rr0a & 0x01) /* Rx character available */ 
a3++; 


save_rr0a = rrQa; 


outp(SCCA_CMD, 0x10); /* reset ext/status interrupt */ 
outp(SCCA_CMD, 0x30); /* reset special Rx cond. status */ 
outp(SCCA_CMD, 0x38); /* reset highest IUS */ 

break; 


case 0x0C: /* Ch A Rx data ready */ 
a3++; 
break; 


case 0x0E: /* Ch A Special Rx condition */ 
a4+4+; 
outp(SCCA_CMD, 0x01); 
rrla = inp(SCCA_CMD); 


if (rrla & 0x20) /* Rx overrun error */ 


( 
} 


if ((rrla & 0xC0O) == 0x80) /* EOF with NO CRC error */ 


( 


a_rxoverrun++; 


outpw(DOCON, OxA3A4); /* STOP DMA 0 - no more Rx */ 
cha_in_buf0(514 - inpw(DOTC) - 2] = NULL_CHAR; 

/* make it a char string */ 

rx_eom = TRUE; 


/* ignore break/abort */ 


} 


if ((rrila & OxCO) == O0xC0) /* EOF with CRC error */ 

{ 
outpw(DOCON, OxA3A4) ; /* STOP DMA 0O - no more Rx */ 
cha_in_buf0[0] = NULL_CHAR; /* make it a char string */ 


rx_eom = FALSE; 


/* ignore break/abort */ 


outp(SCCA_CMD, 0x30); 
outp(SCCA_CMD, 0x38) ; 
break; 


default: 
JeRerror */ 
break; 


} /* End of SWITCH(rr2b) */ 


/* Check for any pending ints, which will cause the entire SWITCH above 
* to reiterate. 

“7 

inp(SCCA_CMD) ; 

outp(SCCA_CMD, 3); 

rr3a = inp(SCCA_CMD) ; 


} while (rr3a != 0); 
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/* Send non-specific EOI to Interrupt Controller */ 
outpw(OxFF22, 0x8s000) ; 


} /* End of scc_isr() */ 


/*tttetteeetersreressrerereeetreteeeterettkeeeeetersrsesreKessKsetesrsteteteeeeeeeeteet 


+ 


* scca_wreg() 
+ 


eeetrrtereetsree eee eeeeetr reer eeretrsrrrseerr rrr rere eee eee ee eT ee / 


void scca_wreg(int reg, int value) 


{ 


if (debug) 
adprint("SCCA WR: %*X = %X", reg, value); 


outp(SCCA_CMD, reg); 
outp(SCCA_CMD, value) ; 


} /* End of scca_wreg() */ 


steer eters rerer errr Perr AesrrArerre etree rrr tetera eee 


+ 


* sccb_wreg() 
* 


eeeeeeeeeerererrrrrsrrrtretrketreteetettretrraekkeer eri eere eee rere tse eee ee ee ee / 


void sccb_wreg(int reg, int value) 


{ 


if (debug) 
dprint("SCCB WR: *X = %X", reg, value); 


outp(SCCB_CMD, reg); 
outp(SCCB CMD, value); 


} /* End of sccb _wreg() */ 


seater steer KKK KKK KEKE KAKA RARER eek 


* 


* scc_hunt) 
* 


eerereerrerreekeeteekereterereeetsereetssssrrkeeteeeeteeeeet eee eee eee eens / 


void scc_hunt (void) 


{ 


unsigned long inti; 


dprint ("Entering Hunt Mode") ; 


outp(SCCA CMD, 3); 


outp(SCCA_ CMD, OxD8) ; /* Disable receiver */ 
outp(SCCA_CMD, 3); 
outp(SCCA_CMD, OxD9); /* Enable receiver & enter Hunt mode */ 


for (1 = 0; i < OxOOO1FFFFL; i++) 


{ 
if ((i*tOx3FFFL) == 0) 
Oprane ¢".") ; 


if (!(inp(SCCA_CMD) & 0x010)) 
break; 


} 
if (inp(SCCA_CMD) & 0x010) 

dprint ("Syne (Flag) not detected, still in Hunt Mode\n"); 
else 


dprint("Sync (Flag) detected!\n"); 


} /* End of scc_hunt() */ 


End of scc.h, scc.c 
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scenario.h, scenario.h 


[RRR REE AEEKEKEEEEKREEREEEEREEREEEEEEEEEEREREEEEE E 


+ 4+ 4 4 


* 


* 


SCENARIO.H 


Petite Amateur Navy Satellite (PANSAT) . 

Embedded ROM software. 

Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
Jim A. Horning (Jah) 


Revision History: 


— ee 
=== S=S=S>S>S>S=2[S => >S=>S=>==> 


kkekk keke keke keke keke keke keke eke kkk kkk eet kk / 


kekkxkkekkkekkkkkkaekekekkkeke keke kke keke KKKK KKK KKK KKK KKK KKK KKK KKKKKeKeKeKeK KK KKK KKK 


SCENARIO.C 


Petite Amateur Navy Satellite (PANSAT). 

Embedded ROM software. 

Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
Jim A. Horning (Jah) 


Revision History: 


ee 
ts 


wake kkkkkkkkkekeekk eee haekkkek kkk kkk keke kkk kek kee keke ke / 


#include "gen _defs.h" 
#define SCENARIO 
#include "cmd.h" 

#undef SCENARIO 


End of scenario.h, scenario.c 
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spacket.h, spacket.c 


s/eeeeeetetstrrertetrttiterietterertrectrererertrrerrer eee eee eee eer eerie rrr tres eee 


* 


* 


* 


+ 


SPACKET .H 


Petite Amateur Navy Satellite (PANSAT). 

Embedded ROM software. 

Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
Jim A. Horning (Jah) 


Revision History: 


— oe ee oe ee = 
ee 


weeeeeeeee eter tres teeeeeeee etree eeeerreeeeereeeeeree eek etereeeeeet eee eee eee ee / 


-~ 


f/eeeeeerste eee eee eee ee eee ee eee eee ee eee eee ee eee ee eee eee eee eee eee eee tee ert e eet 


+ 


* 


SPACKET .C 


Petite Amateur Navy Satellite {PANSAT). 

Embedded ROM software. 

Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
Jim A. Horning (Jah) 


Revision History: 


se eee ee ee ee 
SS 


steeeeeeeeeeeteetererreeeeererreeeeterteeeeeeereeeeeeeeeeerteeeeeeere erect eeeeaes / 


#include "gen_defs.h" 
#define SPACKET 
#include "spacket.h" 
#undef SPACKET 


End of spacket.h, spacket.c 
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startup.asm 


eREREE EEA AE EERE EEE EERE EERE ERERE REET EEE EAE EAE REET ERE ERE EEE ETE EES 


-* 

7* 80086°C Startup 

-* 

‘ 

;* This is the beginning of ROM code for PANSAT. 

-* 

;* 

;* Revision History 

-®¥ 

;* When Who What 

Peel SONS {pe eS Seas tact eS eR eM Rae ee ee ee ee ee eee ee 
;* 28 March 1996 Jah Adopt for Pansat DCS 
* 


=e 


PERERA EEE EEE EKA AEE EAE EEE AEE EEE EEE EEE AEE HAKKAR 


FALSE equ 0 
TRUE equ 1 


PERERA AEE EEA EEE EEK EEE EEE EEE EEA EEE EEE EEE KEE EEE EEE EERE ERE EEEEEEEKKKEE 
* 

4‘ 

7* MACRO: transmit 

* 

s 


pRROEREEEAE EE EEEEEKEKEKAAEEEEEKEEE EEK EREEEKEREEEE KEKE KEKE KEKE 


transmit MACRO 
LOCAL transmit_wait 


mov bx, ax 


transmit_wait: 


in al, SCCB_CMD 

and al, 4 

alee transmit_wait 

mov ax, bx 

out SCCB_DATA, al 
ENDM 


pa a EE EEE EEE EEE 
-* 

f 

;* MACRO: DELAY 

o* 

’ 


peewee eeeeeee eee ee eek eke eee eee ekee eee eee keke eee eeekek kee keke eee 


delay MACRO- delay _time 
LOCAL delay_loop 


mov cx, delay time 
delay loop: 

dec cx 

jnz delay_loop 
ENDM 


pera eeae eee eee eee eee eee eee eee eee eae eee eee ee ATK E 


_* 
f 


;* MACRO: DISPLAY 
o* 


pee 


display MACRO 
LOCAL displayl 
LOCAL display2 


shr ax, cl 

and al, OFh 

cmp aL; 2 

jb displayl 

add aly JO37h jadjust A-F 

jmp display2 
displayl: 

add alee jadjust 0-9 
display2: 

transmit 
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ENDM 


keekrrrerererrrexererkeeerkekeekeerekeraeexeeererexeeeeeeekeekeekeeeeekekxeaekaekeeeexekeereee 


; Specify stack size. 


keexeekekekeeeeeeerekekeekeeaeerrekaerekekeeaeerkeeeaeeeekeeeaeKKKKKKKeKea KT KKK 


STACK_SIZE EQU 800H ;defined in WORDS (2 bytes) = 4k bytes 


eerereereeekkeekeekeekeekekeekekeereeererkeekeeereerekekekekeekeekeeeekeekeeeekekeekekekkekeekse 


; Place EXTRN statements for interrupt handling routines outside 

; Of all SEGMENT/ENDS pairs. 
exerrrkerrrkerrkrrrkeereerrrkeerrkrkerkeekexkeexekekkekkekeekekekekkekekeekeekekekekekkeaekse 
; For example, suppose you have an interrupt handling routine written inc 

; with the function name int_hdlr(). 

; In order for you to reference the routine in this file, you should declare 
; _int_hdlr as an external reference (note that the C compiler prefixes an 

; underscore character to the function name). The declaration should be 

; placed outside of all SEGMENT/ENDS pairs as follows: 

; EXTRN _int_hdlr:FAR 

; Refer to the sample code below that initializes the interrupt vector table. 


weexeeexekakeekrexeerrkerxkrreekeeekeeeeeeeekeeeaerkeeeeexekaekaekaekeeeeekkeeeekeekeekekeeeeeeeeeeaesrst 


; The primary function of the start-up code is to set up the run-time 
; environment before passing control to C function main({). 

; The start-up code performs the following functions: 

; 1) Initialize hardware and check RAM. 

; 2) Copy initializers from ROM to RAM to setup initialized program variables 
4 to proper initial values. 

; 3) Zero all uninitialized program variables. 

; 4) Initialize interrupt vector table, if necessary. 

; S) Setup data segment. 

; 6) Setup stack segment. 

; 7) Pass control to C function main(). 


PUBLIC —_ acrtused 
__acrtused EQU 1 


; The symbol _acrtused has to be in lower-case. Starting from version 4, 

; when the Microsoft C optimizing compiler compiles a C file, it places an 
external reference to this symbol in the object file. The public definition 
of _acrtused is contained in an object module called crt0. This module is 
placed in the Microsoft C run-time library file. This module contains the 
Start-up code for the DOS environment. So when you link your C object files 
with the run-time library file, the linker will extract the start-up object 
module from the run-time library file to satisfy the external references. 

; AS a result, the start-up code for DOS environment will be included in the 
; linker output. 

; If you do not make use of any function supplied in the run-time library 

; file, you do not link with the library file at all. Then you have to 

; include a public definition of _acrtused in this file to resolve all the 

; external references in the C object files. 

; Even though you are building an application for an embedded environment, 

; sometimes you may want to link with the run-time library file. The reason 
; is that the run-time library file contains both DOS-dependent functions, 

; such as printf(), and DOS-independent functions, such as strcepy(). If you 
; want to make use of certain DOS-independent functions that are contained in 
; the run-time library file, you would link with the library file. If the 

; link map shows that the linked module contains the crt0 module, you know 

; that you have linked in some DOS-dependent functions from the run-time 
faltbprary file. 

; Make sure you specify this start-up file as the first object file 

; in the linker command line, then the other object files and place the 

; modified combined run-time library file as the last file. 


=e Se fe 


me =e es 


; The following memory map shows a typical run-time environment of an embedded 
; application developed using the Microsoft C optimizing compiler. 

; It will help you understand the start-up code presented in this file. 

; The naming convention of class names presented here conforms with the 

; Microsoft C optimizing compiler, version 4 and up. The names enclosed in 

; Single quotes are class names of segments. 


; High address 


mm ee a ea ea 


PEPE <0 @===-2----------- <-- Bootstrap code (JMP FAR PTR START_}) 


| {FAR_DATA] | “ This area of ROM contains initializers that 
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| 
| 
| 
| 
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| 
| 


0:90 
Low addre 


NOTE: 


<a ewww ew HK HK ew ee 


wee wr ewe ew we wee EK eK = 


ss 


| are used by start-up routine to initialize 

| segments with these class names in RAM at 

| power-up. 

| (The INITDATA control causes the PROM86 

| utility to place initializers between address 
v labels _bdata and _edata and between _bfdata 
<-- and efdata in this area of ROM) 
<---- This class contains only one segment of zero 

length. Initializers are located at etext. 

<-- Text segments with class name CODE. 


End of DGROUP (size of DGROUP <= 64K bytes) 
<-- This class contains the stack. 


q--o-- 


<-- This class contains uninitialized data. 


Seer 2 
“ These three classes of segments are to be 
| initialized with initializers in ROM 
| by start-up routine at power-up. 
| 
Vv 

<---- Start of DGROUP 


<-- This class contains uninitialized data. 
<-- This class contains uninitialized data. 
<-- This class contains initialized data. 


<-- The interrupt vector table should be 
initialized by start-up routine at power-up. 


It is important to maintain the order of SEGMENTS/ENDS pairs as shown 
below. 


Text segments all have class name CODE. 


They contain program code 


which is machine instructions generated by the compiler. 


Data segments with class names DATA_BEG, DATA, CONST, BSS and STACK 


belong to a group named DGROUP. 
a group, 


Since these segments belong to 


it follows that the total memory space occupied by them 


cannot exceed 64K bytes. 


The object files may contain data segments with class names 
FAR_DATA, FAR_BSS and HUGE_BSS. 
These classes of segments are generated by the Microsoft C 


optimizing compiler to support 


'far' and 'huge' data objects. 


Check your C manual for details. 


Data segments with class names FAR_BSS and HUGE_BSS contain 


‘far! 


and ‘huge' 


uninitialized data, 
do not belong to any group. 
the group DGROUP in the RAM space of your target system. 


respectively. These segments 
They should be located before 
The 


advantage of locating these segments before DGROUP is that you may 
use the memory space from the end of STACK segment to the end of 
RAM as heap to implement your own memory allocation scheme. 


For ‘huge' data objects, multiple segments may be generated by the 
C compiler to hold a single data object that is greater than 64K 


bytes in size. 


order. 


These segments must be located together in proper 


222 


7 Data segments with class name FAR_DATA contain 'far' and ‘huge' 
; initialized data. They should also be located before the group 
; DGROUP in the RAM space of your target system. 


; When you prepare data file for programming eprom, the initializers 

; for segments with class names DATA_BEG, DATA, CONST and FAR_DATA 

; have to be placed in ROM addresses behind the CODE_END class. 

: The INITDATA control of PROM86, version 5.2 and up, performs this 

; operation for you. At power-up, the start-up routine will copy these 
; initializers from ROM to initialize the appropriate variables in RAM. 


, In order to make use of the INITDATA control in PROM86, you 
; must preserve the following public labels in this start-up file: 
; _bfdata - beginning of initializers in FAR_DATA class 


; _efdata - end of initializers in FAR_DATA class 

; _bdata - beginning of initializers in DGROUP group 
; _edata - end of initializers in DGROUP group 

; _etext - end of code 


; If you want PROM86 to determine the extraction address range, 
; i.e. the ADDRESSES option is not specified in PROM86 v6.0, you must 
; preserve the public label _start_ in this Start-up file. 


; In addition to the above labels, the routine in this start-up file 


: uses the following public labels: 

; _end - end of uninitialized data in BSS class 

5 _bfbss - beginning of uninitialized data in FAR_BSS class 
; _efbss - end of uninitialized data in FAR_BSS class 

; _bhbss - beginning of uninitialized data in HUGE_BSS class 
: _ehbss - end of uninitialized data in HUGE_BSS class 


PUTT eee TREKKA ETETOTETEEAETEEEEEEKERTAEEEEETEEKEEETTATEKEEET TETHERED TTEEKEKEKTEERE 
PESTER TTT T ERE EATER EKER TEETER EERTEREREREKETATAETEEEEETEHETEKETEKEDEREKEES ET 


.@ 
e 


;* Segment declarations 


-? 
’ 
peer ekeeerkekekeveorktketekekeeeekekekekKeEkeekeekekekertkeereraetkkeekeekeeetevekeeeee 


peEwereeeakteekereeeeokrkesrkkkekkkeekeseeetkeeeeeeeeeeeeeekeeeereeeeeeekteeeeeeeeeete 


peek arrrerrrkkeererereerererereeereseeeecrekteekeeeetekekerekketkereeekekevrererekekekeeerese 
-* 
? 


;* BEGFDATA 


* 
é 


prt trerrekkekeereeerereeretrkkerkeEreeeekeereteeteeekteetkeeeeeereekterekrekeeeterekterenee 


BEGFDATA SEGMENT PARA PUBLIC 'FAR_DATA_BEG' 


PUBLIC _bfdata 

_bfdata LABEL BYTE ; This label marks the beginning of initialized data 
; in FAR_DATA class. 

BEGFDATA ENDS 


pewter keretaexexresesesesesseeekexnaeeetaekrereeekeeekrekkeeeeeeeeeeeeeeeeeeeeeeeerede 


-* 
s 


;* FAR_DATA_START 
-* 
¢ 


pert erkeeerreereokeresceeoseeseereereeeerertereeekteetketkkekeekekeeekteeekekeeeeet 


FAR_DATA_START SEGMENT PARA PUBLIC 'FAR_DATA' 
FAR_DATA_START ENDS 


; By default, the locator places segments with the 

; Same class name together 

; The purpose of the FA LATA_START segment is to cause the locator 
; to locate all seaqmer.:s with class name FAR_DATA that contain 

; initialized variaties between the BEGFDATA and ENDFDATA segments. 


EMULATOR_DATA segment pera public ‘'FAR_DATA' 


; Segment contains date for the floating point emulator. 
EMULATOR_DATA ends 


pet eteeeeererevesesesesseceeereseseseeeeekeeeeeKkKeeeeeeeeeeeetekkeeeeeeeeeeeeeeet 


-* 
é 


;*  ENDFDATA 


-% 
? 


preeeeeekeseekerereseereexneeetedeeteekkeeeeeeeeee etree eee ee eee eee ekeeeeeekeeeeee 


ENDFDATA SEGMENT PARA PUBLIC 'FAR_DATA_END! 


PUBLIC _efdata 
_efdata LABEL BYTE ; This label marks the end of initialized data 
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; in FAR_DATA class. 
ENDFDATA ENDS 


REE EKAHHEKEEAEEEEEEEETEKEA EKA AEE EEE AEE AEE EEE EEEE 
’ 


-¥ 
‘ 


i;* BEGFBSS 


:¥ 
s 


eee PLEA Se PERLE AAALAC ELER TEE EEA ET ETS EEE EERE 


BEGFBSS SEGMENT PARA PUBLIC 'FAR_BSS_BEG' 


PUBLIC _bfbss 

_bfbss LABEL BYTE ; This label marks the beginning of uninitialized 
; data in FAR_BSS class. 

BEGFBSS ENDS 


PRE RE AREER ETAT AEE EEE EEA TEETER EERE EERE ETAT EEATA TEES 


-* 
‘ 


;* FAR_BSS_START 


-* 
’ 


p RAE EEEAEEEEEEE EEE EEE EEE TEETER ETE EAE E EER EEE AEEEEEEAEEEEERERATATEEEEE 


FAR_BSS_ START SEGMENT PARA PUBLIC 'FAR_ BSS' 
FAR_BSS_START ENDS 


; By default, the locator places segments with the same class name 

j together. 

; The purpose of the FAR_BSS_ START segment is to cause the locator to locate 
; all segments with class name FAR_BSS between the BEGFBSS and ENDFBSS 

; segments. 

; Segments with class name FAR_BSS contain uninitialized variables. 


PRE ER EAHA EEEEKAEEEEETEKEEEETEEEEEEE AEE AKER ATK 


-* 
s 


7* ENDFBSS 


_* 
, 


PRE REEREAAEEEAAEAHHAEKEEEAT EH EATAHEKEK HH KA KKK KEKKEKEATHH KKK KTKa eK aA Ke a aa 


ENDFBSS SEGMENT PARA PUBLIC 'FAR_BSS_END' 


PUBLIC _efbss 


_efbss LABEL BYTE ; This label marks the end of uninitialized data 
; in FAR_BSS class. 
ENDFBSS ENDS 


pee eee eee aka keke kee eke kee eee keer eeekeeeekeeeaekeekeerekeKee 


-* 
‘ 


;* BEGHBSS 


_* 
‘ 


PEEK KEKE EEK eae KET KAEATKEEAA AEE 


BEGHBSS SEGMENT PARA PUBLIC ‘HUGE_BSS_BEG' 


PUBLIC _bhbss 


_bhbss' LABEL BYTE ; This label marks the beginning of uninitialized 
; data in HUGE_BSS class. 
BEGHBSS ENDS 


pa EEK AEE EEE EEA TEER KEKE KEE 


-* 
‘ 


;* HUGE _BSS START 


_* 
‘ 


PEER ETHER EEE EEA HEE HEEEEEEEEEEEEEAAEE THEATER ES 


HUGE_BSS_START SEGMENT PARA PUBLIC 'HUGE_BSS' 
HUGE_BSS_ START ENDS 


; By default, the locator places segments with the same class name 
; together. 


; The purpose of the HUGE_BSS_START segment is to cause the locator to locate 


; all segments with class name HUGE_BSS between the BEGHBSS and ENDHBSS 
; segments. 


; Segments with class name HUGE_BSS contain uninitialized variables. 


PEE EEE EE EEE EEE EEE EHTS 
® 
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;* ENDHBSS 


-_* 
’ 


eee eeeeeeee eee eae tease eee eae eee saa eee ae eee aaa eee eee eee eee 
‘ 


ENDHBSS SEGMENT PARA PUBLIC 'HUGE_BSS_END' 


PUBLIC _ehbss 

_ehbss LABEL BYTE ; This label marks the end of uninitialized data 
z in HUGE_BSS class. 

ENDHBSS ENDS 


er Se Se ee Sea Ee EE ETE EE SE RS SST SST ER SS TT eee TT Te TTT Ee ee Tt 


~t 
’ 


;*  DGROUP segments 


.* 
’ 


ee SRE SESS ASE ASSETS TATE A EERE R EEE TENE ERAT EE AERA AEE AEH ETHER EEE HD 


; DGROUP GROUP NULL, _DATA, CONST, ENDDATA, _BSS, ENDBSS, STACK 


DGROUP GROUP NULL, DATA, PSP, CDATA, CONST, HDR,MSG, PAD, EPAD, ENDDATA, BSS, ENDBSS, STACK 


ote eters ee eee eee eee eee eee eee eee eee eee eee eee ee eee eee eee eee 


* 


* 


NULL 


* 


=e fe me me . 


This segment contains 8 bytes of zeros. If a (DS:0) null pointer assignment 
occurs, these byte locations will be overwritten. You may implement your 
own routine to check for null pointer assignment. 


ee 
+ 


-t 
‘ 


gererrrerrerrerrerereererereeeereeeeeeeeeeeeteeeeereeeeeeeeeeeeeeeeeeeastereeeeees 


NULL SEGMENT PARA PUBLIC 'DATA_BEG' 


PUBLIC _bdata ; This label marks the beginning of initialized data. 
_bdata LABEL BYTE 
DB 8 DUP (0) 


NULL ENDS 


,errteraraeaeaeaeeaaeeeeeeeeeeeeekeeeeeereaeeeeeeaeeeaeeesesreeaeeaeeeaeeaeaeaetaesaeeaeaeraaeeeaeaes ast 


_* 
’ 


;* _DATA 


tt 
é 


;* Segment with class name DATA contains initialized variables. 


°* 
’ 


pure eerereeeereeaeeeeaeeeeeeaee ee eee eee eee seers eee eee eee eee eee aera eee aaa eke eee a 


_DATA SEGMENT WORD PUBLIC 'DATA' 
; segment contains initialized variables 


FURLIC.... fac 
__fac DQ 0 ;FP Accumulator 
PUBLIC —_errno 
_errno DW 0 Jinet tate eror Code 
_DATA ENDS 


PSP SEGMENT PARA PUBLIC 'DATA' ; MUST BE PARAGRAPH ALIGNED 
; Segment contains data for initializing floating point emulator. 
PSP ENDS 


CDATA SEGMENT WORD COMMON 'DATA' 
DW 0 ; DO NOT DEFINE ANY VARIABLE IN THIS SEGMENT 
__fpinit LABEL DWORD 
PUBLIC _ fpinit 
CDATA ENDS 


puree eee eee eee eee eee eae eae eee eee eee eee 


-* 
, 


ar )6|6 CONST 


-* 
‘ 


;* Segment with class name CONST contains constants. 
* 


peewee ereerererreeeeeeereret eee eee eee eee eee eee eee eee eee aaa eee eee eee 


CONST SEGMENT WORD PUBLIC 'CONST' 


CONST ENDS 

HDR SEGMENT BYTE PUBLIC 'MSG'! ; HEADER SEGMENT OF ERROR MESSAGE STRINGS 
DB '<<NMSG>>'! 

HDR ENDS 
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MSG SEGMENT BYTE PUBLIC 'MSG' ; ERROR MESSAGE STRINGS 
MSG ENDS 


PAD SEGMENT BYTE COMMON 'MSG' ; ERROR MESSAGE PADDING MARKER 
DW =1 
PAD ENDS 


EPAD SEGMENT BYTE COMMON 'MSG' ; END OF PADDING MARKER 
DB 
EPAD ENDS 


eee ee ee eee eee cece eee ee eA SRT TANS E AERA EA ee ee tee ee 


* 
f 


7* ENDDATA 


-* 
‘ 


pA REREAD AEA AAA AAA AATEC ARERR ARE RAE ERE REE RS RSA eS ee ee 


ENDDATA SEGMENT PARA PUBLIC 'DATA_END' 


PUBLIC —_edata 
_edata LABEL BYTE ; This label marks the end of initialized data. 


ENDDATA ENDS 


g PEK EK REE RAKE AA REAR KE EER EKEEREEE EE EEE ERE EEE EEE EERE REEEEEAEE EE SE EERE EE DF 
* 

? 

Hea! BSS 


-* 
, 


;* Segment with class name BSS contains uninitialized variables. 


-* 
‘ 


PR RRR REAR EERE REE EERE KEKE EERE ERE REE EEE KEKE EEE EEE EE EEK EERE EKA EES 


_BSS SEGMENT WORD PUBLIC 'BSS' 
_BSS ENDS 


p RRR REE EERE KEKE EEE KEE EK EEE EEE EK AKER EKER EEE KEKE 


-* 
‘ 


;* ENDBSS 


.* 
’ 


PERERA EEE EEE EERE EERE EEE EEA EEE 


ENDBSS SEGMENT WORD PUBLIC 'BSS_END' 


PUBLIC end 


_end LABEL BYTE ; This label marks the end of uninitialized data. 
ENDBSS ENDS 


peewee xexrkeaerrrexkeeeseereeooserkxrxkrkeekeeeeekeeekeekkee eee eee eee kee eee kere e 


x 
’ 


:* STACK 


* 
‘ 


perwaekekkererrreerexeeeeeeresseoeerrreekxeeeeeeekekeeeeetee etek eee eee tee aeaee 
STACK SEGMENT PARA STACK ‘STACK’ 

DW STACK_SIZE DUP (?) 
stack_top LABEL WORD 


STACK ENDS 


pp RETR KKKOKeE ECHO SeHe SESE SESS es See KEKKKKKEKEAKKKEKEKEEK eee eee EK EK 


-* 
, 


:*)) See 


* 
f 


peExrtxeererekkKkKkKetoeseeseeseseseseeeerrekekeeKeeeeKeEKaeeKeKe Ke KEKE KKK KKK KEKE 


_TEXT SEGMENT PARA PUBLIC ‘*CODE' 
EXTRN _main: NEAR ;C main () 


ASSUME CS:_TEXT 
ASSUME DS:DGROUP, SS:DGROUP 


mi 80186 Initialization 
UMCS equ OFFAOh ;upper memory chip select 
UMCS_ DATA equ OFO38h ;start of EPROM F0O00:0, 64K 
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; external Ready ignored, 0 wait states 


;* Lower Memory Chip Selects are NOT used 
PACS equ OFFA4h 
PACS_ DATA equ 0000h ;PCSO (base) = 0, bus ready must be active 


; to complete a bus cycle, no wait states 
; inserted in bus cycle 


MMCS equ OFFA6h 

MMCS_DATA equ 00000h ;Start = 0:0, 512K in size 
MPCS equ OFFA8h 

MPCS_ DATA equ 04087h 7512K block, + PCSS/6 


; PCSx go active for i/o bus cycles, 

; requires bus ready be active to complete 
; bus cycle (applies to PCS4-PCS6), 

; O wait states inserted for PCS4-PCS6 


PUBLIC START_ 


START_=: 
PUBLIC _start_ ;Must be paragraph aligned (i.e. offset is 0) 
mecart : ; and the address where program code starts. 
ae 80186 Initialization 

mov dx, MMCS 

mov ax, MMCS DATA 

out ax, ax 

Mov dx, MPCS 

mov ax, MPCS DATA 

out ax, ax 

mov dx, PACS 

mov ax, PACS DATA 

out ax, ax 


;* For the test board w/ separate 1.8MHz SCC clock 
i mov dx, OFFA2h 
: mov ax, O3FF8h 
3 out dx, ax 

: mov dx, OFFA4h 
; mov ax, 0037h 
: out dx, ax 

; mov dx, OFFA6h 
: mov ax, 041F8h 
: out dx, ax 

; mov dx, OFFA8h 
: mov ax, OA0O38h 
; out dx, ax 


pyerrererrrerrrrerxxreeeektekkeeeeekekeekekKeekkKkkekkekkkekkkekKerkkekkkekKkKkekeKtkkeenek 


- 
’ 


;* Init Peripheral Control Bus 

;* 68255 (PPI) at OxCO, OxC2, 0OxC4, 0xC6é 

;* Mode 2: Port A = bidirectional using Port C as handshaking 
-° Port B = Address selections and Read & Write strobes 
;? Port C = Handshaking lines 


;* After PPI init, Port B is set to O0xCO which sets the Read and Write 


;* lines high, which clears them since they are active low signals. 


-& 
? 


perrrtrrrrrrrrrertexkkxexekkKkekkKkKkKkkekekekektkekekekekkkekkekeekkekkkekketkkekkkkkk ek 


PCB_PPI_BASE equ 0100h 
PCB_PPI_PortA equ PCB_PPI_BASE + 0 
PCB_PPI_PortB equ PCB_PPI_BASE + 2 
PCB_PPI_PortC equ PCB_PPI_BASE + 4 
PCB_PPI_ Ctrl equ PCB_PPI_BASE + 6 
; Port C single bit set/reset 
PCB_PortC_Seto equ 01h psetserori GC, bit 0 to 1 
PCB PortC Reseto equ 00h ;oets Pore C, bit 0 to 0 
PCB _PortC_Setl equ 03h ssetsearore €, bit 1 to 1 
PCB PortC_ Resetl equ 02h poctseronpe C, bit 1 too 
PCB PortC Set2 equ OSh ;Sets Port C, bit 2 tol 
PCB PortC Reset2 equ 04h psets Port C, bit 2 to 0 
mov ax, PCB PPI_Ctril 
mov al, oCcO0h 
out dx, al ;Setup via the Control port 
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mov ax, PCB PPI Porte 


out ax, al ;Output to port b (Read & Write HIGH) 
mov Gx, 1) PCB PPI Porta 

sub al, al 

out dx, al ;Output to port a (Data = all zeros) 

mov Gx, Pee ePPleCr yr) 

mov al, PCB -Portc Setl ;PCl = PPI Input Strobe 

out dx, al 

mov al, PCB_PortC_Seto ;Modem Power (Active LOW -> keep it OFF) 
out ax, al 


; Clear power settings on EPS (Ports 0 and 2) 


mov dx, PCB _PPI_PortaA 

Mov al, 0 

out dx, al 

mov ax, PCB PPI Ports 

mov al, OE8h 241 10 1000 
out ax, al 

mov al, OA8h 710° 10, 1000 
out dx, al 

Mov al, OE8h 7 Lieto 1000 
out dx, al 

mov GxXereh Pri | Porce 

mov al, OC8h ele Ome 10) 
out dx, al 

mov al, O88h 710 00), 1000 
out dx, al 

mov al, OC8h 71 eOO OOO 
out dx, al 


pReetteekkekeekeeekke keke kk eek keke eee eee eee eke KKK KK Kee eee Kee KEKE Keke 


. 
é 


;* Init 85C30 (Channel B) for: 
;* asynchronous, 9600 bps, no parity, 1 stop bit, 8 bits/char 


-* 
‘ 


peewee eekekekkekkeeeekeeekke keke ee ek ek kkk ek eek kee kee KKK KEK KKK KEKE eK EE 


SCCB_CMD equ 0 ;Channel B Command 
SCCB_DATA equ 4 ;Channel B Data 
SCCA_CMD equ 2 ;Channel A Command 
SCCA_DATA equ 6 ;Channel A Data 
BTABLE_LEN equ (OFFSET sccbh_table_end) - (OFFSET sccb_table) 
ATABLE_LEN equ (OFFSET scca_table end) - (OFFSET scca_table) 
IOCON equ OFF38h 
IOCON_INIT equ 00Ch ;Edge-triggered, turned OFF, priority 4 
INTO_ISR equ dz 

;public init_scca 

;init_scca: 
in al, SCCA_CMD ;read status 
Mov bx, ATABLE_LEN 
mov bp, OFFSET scca_table 

public table _loada 

table _ loada: 
mov al, cs: (bp] 
out SCCA_CMD, al 
inc bp 
dec bx 
jnz table loada 

init_sceb: 
in al, SCCB_CMD ;read status 
mov bx, BTABLE_LEN 
MOV bp, OFFSET sccb table 


public table_loadb 
table_loadb: 
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mov al. cs: [bp] 


out SCCB CMD, ‘al 
ane bp 
dec bx 
jnz table loadb 


public table_loadb done 
table loadb_done: 


mov aly we 3 
transmit 

jmp edac_done 
jmp init edac 


Seea table: 


dip 009h jpoint to WRI 

db ocoh ;force hardware reset 

; 

db 004h jpoint to WR4 

db 020h ;x1 clock, SDLC mode, SYNC mode 

di 001lh ;point to WR1 

db 000h ;disable DMA and interrupts 

; 

di 002h ;point to WR2 

db 000h ;zero interrupt vectors 

db 003h ;point to WR3 

db oC8h ;Rx 8 bits, Rx CRC enabled 

; 

db 00Sh ;point to WRS 

db O061lh ;Tx 8 bits, Tx CRC enabled 

dip 006h ;point to WR6 

db 000h ;SDLC address field 

db 007h 

db O7Eh 

db OOFh ;point to WR15 

db O91lh ;Enable Int: Break/Abort, Sync/Hunt 

di 007h ;point to WR7 

fele) 063h ;Extended Read, get CRC bits, AUTO RTS, EOM, TX flag 

db 009h ;point to WRI 

db 022h ;No vector and no INTACK 

db 0OAh ;point to WR10 

db OAOh ;CRC preset=1, NRZI, Flag idle 

db OOBh ;point to WR11 

db 009h ;TxCK=TRxXC, RxXCK=RTXC 
cee db os56h ;TxCLK=BRG, RxCLK=BRG, TRxC=output using BRG 
; di 00Ch jpoint to WR12 
; db 45 ;ICL-sto give 78.125 KHz clock 
; db 00Dh ;point to WR13 
; db 000h Srterl 

i 

db OOEh ;point to WR14 

db 000h ;BRG=RTxC pin 
j db 002h ; BRG=PCLK 

db OOEh jpoint to WR14 

db ooSh ;Enable BRG, BRG=RTxC pin, DTR/Request Function 
; db 007h ;Enable BRG, BRG=PCLK, DTR/Request function 

db 003h ;point to WR3 

db OD9h ;Enable RX, CRC, enter hunt 

i 

db 00Sh ;point to WRS 

db 069h ;Enable TX, CRC 

db 000h ;point to WRO 

db 080h ;Reset TxCRC 

db 000h jpoint to WRO 

db 010h jreset ext/status 

dip 000h ;point to WRO 

db 010h ;reset ext/status 
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db 00lh ;point to WR1 
; db OF9Sh ;DMA Request Mode, Int on Special Rx, EXT INT enable 
db OF8h ;DMA Request Mode, Int on Special Rx 
db 009h ;point to WR9 
db O2Ah ;enable interrupts 


scca_table_ end: 


Seep) table: 
; based on SCCB using PCLK at 7.3728 MHz, x16 clock mode, at 38400 b/s 


db 04h, 044h ;WR4, X16 clock, §$ bit syne, 1 Stop bit, no parity 
db Oth, olan ;WR1, INT on all Rx or special, Int on Tx empty 
db 03h, OCOh ;WR3, Rx: 8 bits/char, Rx disable 
db OSh, O060h ;WRS, Tx: 8 bits/char, Tx disable 
db OBh, 056h ;WR11, Rx: BRG, Tx: BRG, TRxC: BRG 
; db OCh, 016h ;WR12, lower TC ; this is for 9600 b/s 
db OCh, OAh ;WR12, lower TC ¢ this is £or S22 kb/s 
; db OCh, 04h ;WR12, lower TC ; this is for 38.4 kb/s 
db ODh, 000h ;WR13, upper TC 
db OEh, 003h ;WR14, BRG use PCLK, set DTR, enable BRG 
db 03h, OClh ;WR3: ... + Rx enable 
db OSh, O6Ah ;WRS: ... + TX enable, /RTS 
db 00h, 010h ;WRO: Reset EXT/Status Interrupts 
db 00h, 028h ;WRO: Reset TxINT Pending 
db 09h, O2Ah ;WR9O: Enable Interrupts 


; based on SCCB using BRG, with 1.8432 MHz clock, with x16 clock mode, @ 9600 bps 


; db 04h, 044h ;WR4, x16 clock, 8 bit sync, 1 stop bit, no parity 
: abs Oth 12h ;WR1, INT on all Rx or special, Int on Tx empty 
; db 03h, OCOh ;WR3, Rx: 8 bits/char, Rx disable 

; db OSh, 060h ;WRS, Tx: 8 bits/char, Tx disable 

; db OBh, 0S56h ;WR11, Rx: BRG, Tx: BRG, TRxC: BRG 

; db OCh, 004h ;WR12, lower TC 

; db ODh, 000h ;WR13, upper TC 

- gb) OEn, O01n ;WR14, set DTR and enable baud gen 

; db 03h, OClh ;WR3: ... + Rx enable 

; db OSh, 068h ;WRS: ... + Tx enable 

; db 00h, 010h ;WRO: Reset EXT/Status Interrupts 

; db 00h, 028h ;WRO: Reset TxINT Pending 

i db 09h, O2Ah ;WR9: Enable Interrupts 


sccb_table end: 


pera eaaaaekk kaa kkekkaeakakkeekkakadtkkeekkkkekkkekekaeekkkkkeeeeeee ake 


ft 
f 


j=) init) EDAC 


ae! INT2 
ie! INT3 


Hard Error 
Soft Error 


PET Te HHH KAKA AHA AAHAAEA KKK KAA KKK KAKA 


EXTRN _edac_soft_isr:NEAR ;C routine 

EXTRN _edac_hard_isr:NEAR #C routine 

I2CON equ OFF3Ch 

I2CON_INIT equ O1Eh ;Level-triggered, turned OFF, priority 6 
I3CON equ OFF3Eh 

I3CON_INIT equ O1Fh ;Level-triggered, turned OFF, priority 7 
IMASK equ OFF28h 

INT2_ISR equ 14 

INT3_ ISR equ 15 


public init_edac 
imie.edac: 
;EXTRN —_ad_isr:NEAR 7c adersr) 


mov dx, I3CON 
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Mov 
out 


mov 


Mov 
out 


Mov 


transmit 


;Perform the Write/Read Test of OxS55AA 


; WRITE 


sub 


al, 


I3CON_INIT 


ax 


I2CON 
I2CON_INIT 


ax 


edac_testl1_loopa: 


mov 
sub 
Mov 
mov 
cld 
rep 
mov 
add 
cmp 
jb 


; READ- BACK 


sub 


bx, bx 
es, bx 
diddy 
cx, 08000h 
ax, OSSAAh 
stosw 
bx, eS 
bx, 01000h 
bx, 08000h 


edac_testl1_loopa 


bx, 


edac_test1_loopb: 


mov 
sub 
mov 


es, 
di, 
Cx, 


edac_test_loopbl: 


;Passed the Write/Read of OxS5AA 


cmp 
jnz 


mov 
add 
cmp 
jb 


ax, 


edac_testl_error 
loopedac_test_loopbl 


bx, 
bx, 
bx, 


edac_test1_loopb 


bx 


bx 
di 
08000h 


WORD PTR es: [di] 


es 
01000h 
08000h 


;Now perform the Write/Read Test of Mod-257 


;WRITE 


sub 


bx, 


edac_test2_loopa: 


mov 
sub 
sub 
eid 


es, 
aL; 
ax, 


edac_test2_loopal: 


mov 
inc 
cmp 
jb 

sub 


BYTE PTR es: {diJ, 


ax 
ax, 


edac_test2_skipl 


ax, 


edac test2_skip1: 


ine 
quiz 
MOV 
add 
cmp 
jb 


; READ- BACK 


sub 


di 


bx 
bx 


di 
ax 


258 


ax 


al 


“start w/ 0; Count to 257, 


;move just a byte 
zinc the whole word 


;Start over the count 


;next location to fill 


edac_test2_loopal;not finished w/ 64k block 


Dx, 
bx, 
Dx, 


es 
01000h 
08000h 


edac_test2_loopa ;keep with same count in AX 


bx, 


edac_test2_loopb: 


MOV 
sub 
sub 
eld 


es, 
ais, 
ax, 


edac_test2_loopbl: 


cmp 
Inz 
inc 
cmp 
jb 

sub 


BYTE PTR es: [di], 
edac Cest2 error 


ax 
ax, 


edac_test2_skip2 


ax, 


edac_test2_skip2: 


pac 
jnz 


di 


bx 
bx 


di 
ax 


258 


ax 


al 


sstart w/ 0, count to 257, 


;compare just a byte 


j;inc the whole word 


;Start over the count 


j;next location to fill 


edac_test2_loopbl;not finished w/ 64k block 
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Start over w/ 0 


Start over w/ 0 


mov bx, eS 

add bx, 01000h 
cmp bx, 08000h 
jb 

jmp edac_vectors 


;Passed Write/Read Test of Mod-257 


edacetest ] error: 


mov ala 

jmp startup error 
edac test2 error: 

mov alee: 

jmp startup_error 


edac_vectors: 
;Setup Interrupt Vectors for EDAC 


sub ax, ax 

mov es, ax 

mov ax, OFFSET _edac_hard_isr 
mov es:WORD PTR INT2_ISR*4, ax 
mov ax, SEG _edac_hard_isr 

mov es:WORD PTR INT2_ISR*4+2, 
sub ax, ax 

mov es, ax 

mov ax, OFFSET _edac_soft_isr 
mov es:WORD PTR INT3_ISR*4, ax 
mov ax, SEG _edac_soft_isr 

mov es:WORD PTR INT3_ISR*4+2, 


;Allow the interrupts to occur (to the 


;Note: Interrupts are still off to the 
mov dx, IMASK 

; mov ax, O3Fh 
mov ax, OFFh 
out ax, ax 


;Reset any EDAC errors 


mov dx, PCB_PPI_Ctrl 
mov ax, PCE, POrctc Resetz 
out ax, ax 

mov ax, PCB_PortC_Set2 
out ax, ax 

mov al, ‘e' 

transmit 


edac_done: 


edac_test2_loopb ;keep with same count in AX 


;Segment of INT2 vector 


ax ;Base of INT2 vector 


;Segment of INT3 vector 


ax ;Base of INT3 vector 


Interrupt Controller) 
microprocessor 


;Allow INT2 and INT3 interrupts 
; CPU ‘cli' is still imposed! 
;Mask OFF all interrupts 


;EDAC Error Acknowledge (Active LOW) 


;Setup SCC INTO Interrupt Vector and Configure Controller 
;*** DO NOT DO THIS BEFORE THE EDAC TEST OCCURS SINCE THE INTERRUPT VECTORS ARE TRASHED! 


;Segment of INTO vector 


;Base of INTO vector 


EXTRN _scc_isr:NEAR ;C sec _isr() 
sub ax, ax 
mov es, ax 
mov ax, OFFSET _scc_isr 
mov es:WORD PTR INTO_ISR*4, ax 
mov ax, SEG _scc_isr 
mov es:WORD PTR INTO_ISR*4+2, ax 
mov dx, IOCON 
mov ax, IOCON_INIT 
out dx, ax 


PRR REREKKEEKEEEEKEREKEEKEKEEKEEEKEEKEEHKKKEKEKEEKEKEKEEKEKEKEKEKEKKEEEKEEEKRKEEEERK KK KKEKE E 


* 

pameinit Timer for Clock 
* 
* 


- & 
f 


: Timer 2 Interrupt used, 


INT 13h (19) 


PRR EEE HERR KEKE KEK KE RE ERK KKK KEK KEKE EEE KEK KEKE KEE 


T2CON equ OFF66h 
T2CNT equ OFF6é0h 
T2CMP equ OFF6é2h 
T2_ISR equ 013h 
EXTRN _clock_isr:NEAR 


public set_timer 


7C clockerver() 
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set_timer: 


mov ax, O 

mov es, ax 

mov ax, OFFSET _clock_isr 

mov es:WORD PTR 013h*4, ax 

mov ax, SEG _clock_isr 

mov es:WORD PTR 013h*4+2, ax ;Base of TMR2 vector 

mov ax, T2CHr 

sub ax, ax 

out ax, ax ;Counter Register 

mov dx, T2CMP 

mov ax, 30720 ;Max Count 

out ax, ax 

mov dx, T2CON 

mov ax, 06001h ;no inhibit, INT, Continuous 
out dx, ax 

mov ~ ax, OE0O01h ;Same as above, but Enable as well 
out dx, ax 


pe eteeeeeeeereeeeeeeeeeeeeeeeeteeeeeeeeeeeeekaeeeeeeeeteeteeeeaetraeekeereeeekeeeaeenee 
-_* 
£ 


;* Init A/D Interrupt Service 


* 
’ 


tal INT1 = 


7* 
’ 


A/D Interrupt 


SSS eee eee ee eee ee eee RETREAT EAEEEKEEEEEEEEEEEEEEEEEEEEEEEEEEEREREEEEEEKKES 


I1CON equ OFF3Ah 
I1CON_INIT equ 01Dh ;Level-triggered, turned OFF, 
INT1_ISR equ 13 
EXTRN _ad_isr:NEAR 
public set_ad 
set_ad: 
mov ax, 0 
mov es, ax 
mov ax, OFFSET _ad_isr 
mov es:WORD PTR INT1_ISR*4, ax 
mov ax, SEG _ad_isr 
mov es:WORD PTR INT1_ISR*4+2, ax ;Base of AD ISR vector 


oe eee eee eee ee eee eeeeeeeeee eee eeereeerereereeehtekaeeeeeeaeeeeeekeeekeeerkeeeereheeeee 


* 

* Perform variable initialization. 

* Initializers are copied from ROM to RAM. 
* 


p RRR EEE EEE EEE EEE EEE EEE EEE ETE TEE KEENE KEKE 


EueGIC _init_begin 
manit begin: 


eid 
;Jah 


mov 
transmit 


ai tis 


; Transfer Count 
MOV AX,OFFSET DGROUP: edata ; Transfer counter 
CMP AX,0 , 
JZ no_init_data 
MOV CX, AX 


; RAM Destination address 
MOV AX,SEG _bdata 
MOV ES, AX ; 
MOV DI,0 5 


Destination ES: [DI] 
Start of initialized variable area in RAM 


; ROM Source address 


MOV AX,SEG _etext ; Source DS: [STI] 

MOV DS, AX ; Start of initializer storage in ROM 
MOV SI, 0 

REP MOVSB ; Begin byte transfer from ROM to RAM 
mov ae a? 

transmit 


233 


priority 5 


no_init_data: 


; Clear uninitialized data area in DGROUP group 


mov al “Ui 
transmit 
MOV CX,OFFSET DGROUP: end ; End of '‘'BSS' class in RAM 


MOV DI,OFFSET DGROUP: edata ; Start of 'BSS' class in RAM 


SUB 


CX, DI 


; Size of 'BSS' class in bytes 


JCXZ no_uninit_data 


MOV 
REP 


mov 


AX, 0 
STOSB 


alee! 


transmit 


no_uninit_data: 
; Initialize FAR_DATA data in RAM with initializers stored in ROM 


; Initialize to 0 


Transfer Count 
MOV AX,SEG _bfdata 
MOV CX,SEG efdata 


SUB CX,AX ; Compute size of FAR_DATA segments in paragraphs 
JCXZ loopend i No FAR_DATA class 
MOV Dx, CX ; Saves transfer count in paragraphs 
; Destination 
MOV ES, AX ; Destination ES: [DI] 
MOV DI,0 ; Start of FAR_DATA class in RAM 
; Source 
MOV AX,SEG _etext ; Source DS: [SI] 
MOV DS,AX ; Start of FAR_DATA initializer storage in ROM 
MOV SI,OFFSET DGROUP: edata ; _@data is paragraph aligned 
i Normalize Source Pointer 
MOV AX,SI ; Process base of source pointer 
MOV CL,4 
SHR AX,CL ; Divide by 16 
MOV BX,AX 
MOV AX,DS 
ADD AX, BX 
MOV DS, AX ; Adjust base of source pointer 
MOV SI,0 ; Offset of source pointer is zero 
MOV AX,DX ; Restore transfer count in paragraphs 
loopbegin: 
CMP AX,1000H ; More than 64K bytes to transfer? 
JBE lastxfer i; No 
MOV CX, 8000H ; Prepare to transfer 8000H words 
SUB AX,1000H ; 
JMP SHORT xferbegin 
lastxfer: 
MOV CL, 3 
SHL AX,CL ; Number of WORDS = paragraph * 8 
MOV CX, AX ; Set up transfer count in terms of WORDs 
MOV AX,0 ; No more to transfer 
xferbegin: 
REP MOVSW ; Transfer WORDS from ROM to RAM 
CMP AX,0 ; Any more data to transfer? 
JE loopend 3; No 
; Adjust Source and Destination pointers 
MOV BX, AX ; Saves transfer count 
MOV AX,DS 
ADD AX,1000H 
MOV DS, AX 
MOV AX,ES 
ADD AX,1000H 
MOV ES,AX 
MOV SI,0 
MOV DI,0 
MOV AX, BX ; Restores transfer count 
JMP loopbegin 
loopend: 


; Clear uninitialized data area in FAR_BSS class 
Transfer Count 
MOV AX,SEG _bfbss 
MOV CX,SEG _efbss 


SUB 


CX, AX 


JCXZ loopfend 


Destination 


MOV ES, AX 


; Compute size of FAR_BSS segments in paragraphs 
; No FAR_BSS class 


; Destination ES: [DI] 
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MOV DI,0 


; Transfer Count 
MOV AX, CX 
loopfbegin: 


CMP AX,1000H 
JBE lastfxfer 
MOV CX, 8000H 
SUB AX,1000H 
MOV BX, AX 
JMP SHORT xferfbegin 
lastfxfer: 
MOV CL,3 
SHL AX,CL 
MOV CX, AX 
MOV Ax, 0 
MOV BX, AX 
xferfbegin: 
MOV AX, 0 
STOSW 
MOV AX, BX 
CMP AX,0 
JE loopfend 
; Adjust Destination 
MOV AX,ES 
ADD AX,1000H 
MOV ES, AX 
MOV DI,0 
MOV AX, BX 
JMP loopfbegin 
loopfend: 


REP 


; Start of FAR_BSS class in RAM 


; More than 64K bytes to initialize? 
; No 
; Prepare to transfer 8000H words 


; Saves transfer count 


; Number of WORDS = paragraph * 8 

; Set up transfer count in terms of WORDs 
; No more to transfer 

; Saves transfer count 


; Initialize WORDs to zero 
Restore transfer count 
Any more data to transfer? 
No 
pointers 


we we we 


; Restore transfer count 


; Clear uninitialized data area in HUGE_BSS class 


; Transfer Count 
MOV AX,SEG _bhbss 
MOV CX,SEG _ehbss 
SUB CX, AX 
JCXZ loophend 

; Destination 
MOV ES,AX 
MOV DI,0 

: Transfer Count 
MOV AX,CX 

loophbegin: 

AX, 1000H 

lasthxfer 

CX, 8000H 

AX,1000H 

BX, AX 

SHORT xferhbegin 

lasthxfer: 
MOV CL,3 
SHL AX,CL 
MOV CX,AX 
MOV AX,0 
MOV BX,AX 

xferhbegin: 

MOV AX,0 
STOSW 

MOV AX,BX 

CMP AX,0 

JE loophend 

; Adjust Destinatior. 

MOV AX,ES 

ADD AX,1000H, 

MOV ES,AX 

MOV DI,0 

MOV AX, BX 

JMP loophbeginr 

loophenda: 


REP 


PUBLIC _init_ done 
_init_done: 


; Compute size of HUGE_BSS segments in paragraphs 
; No HUGE _BSS class 


; Destination ES: [DI] 
; Start of HUGE_BSS class in RAM 


; More than 64K bytes to initialize? 
= NO 
; Prepare to transfer 8000H words 


; Saves transfer count 


; Number of WORDs = paragraph * 8 

; Set up transfer count in terms of WORDs 
; No more to transfer 

, Saves transfer count 


; Initialize WORDs to zero 
; Restore transfer count 
, Any more data to transfer? 
» NO 
pointers 


, kestore transfer count 


teevvere ee eteeekeereee tee eeneeeeeeeeKkeekaerkekkk eee ee eee eee eer eae aaa aaa eae aaa aaa 


; Initialize the anterrupt vector table here 


wteoeteeeorexererrwes ee eee eeeecree eee eeeeraeee eee eee eee eee eae aaa kaa aaa aa eae 


; Interrupt types 0 to 4 are dedicated internal interrupts. 


; Type 0 - Divide-error 
i; Type 1 - Single-step 
; Type 2 - 

; Type 3 - 

; Type 4 - Overflow 


Non-maskable interrupt 
1l-byte INT instruction or Breakpoint 


; Interrupt types 5 to 31 are reserved internal interrupts. 
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; Interrupt types 32 to 255 are available for use. 


; For example: 


; The interrupt handling routine for vector 32 decimal is assumed to 


: be the C function: void interrupt far int_hdlr(). 


Yi The statement declaring code label _int_hdlr as an external far procedure 


; has to be placed outside of all SEGMENT/ENDS pairs. 


; See the sample EXTRN statement above. It is behind the GROUP statement. 
; Below is the sample code to initialize an entry in the vector table: 


; TYPE32 EQU 32 
; MOV AX,0 

: MOV ES,AX ;Reference base of interrupt vector table 
; MOV AX,OFFSET _int_hdlr 


; MOV ES:WORD PTR TYPE32*4,AX ;Offset portion of vector 32 


: MOV AX,SEG _int_hdlr 
' MOV ES:WORD PTR TYPE32*4+2,AX ;Base portion of vector 32 


; TYPEO EQU 0 

Fi MOV AX,0 

; MOV ES,AX ;Reference base of interrupt vector table 

; MOV AX, OFFSET mee intDiv 

; MOV ES:WORD PTR TYPE0O*4,AX ;Offset portion of vector 0 
F MOV AX,SEG _ cintDIV 

: MOV ES:WORD PTR TYPE0*4+2,AX ;Base portion of vector 0 


; Setup data and stack segment here before releasing control to main 


mov al, 'S' 
transmit 


public setup main 
setup main: 
mov ax, DGROUP 


mov ds, ax ;Setup data segment 


ASSUME ds:DGROUP 


mov Ss, ax ;Setup stack pointer 


mov sp, OFFSET DGROUP:stack_top 
ASSUME Ss:DGROUP 


;FP emulator init function 


mov al, ‘F! 
transmit 

EXTRN __alinit: FAR 
CALL FAR PTR _alinit 
mov ae. 
transmit 


;Reset the EDAC Hard and Soft Error Interrupts 


mov Gx, PCB Pri Ctrl 

mov al, PCB_PortC_Reset2 ;EDAC Error Acknowledge (Active LOW) 
out ax, al 

mov al, PCB _ Porte ‘Set2 

out dx, al 


;Send non-specific EOI to Interrupt Controller 


INT_EOI equ OFF22h 
mov dx, INT_EOI 
mov ax, 08000h 
out dx, ax 


;* Mask ON/OFF Interrupts to the Interrupt Controller 


mov dx, IMASK 
mov ax, OEEH ;allow INTO, Timers 
out ax, ax 


;Ready to transfer control to the C run-time, enable interrupts. 


mov al, *M! 

transmit 

in al, SCCB_CMD ;reset pointer 

mov al, 010h 

out SCCB_CMD, al ;WRO: Reset EXT/Status Interrupts 
mov al, 028h 

out SCCB_CMD, al ;WRO: Reset TxINT/Pending 

mov al, 030h 

out SCCB_CMD, al ;WRO: Error Reset 
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mov al, 038h 
out SCCB_CMD, al ;WRO: Reset Highest IUS 


PUBLIC before_main 
before_main: 


sti 
call main ;Pass control to C main() in module dcs.c 


PepGiC exit, exit 
mexit LABEL FAR 
_ exit LABEL FAR 
des halt: 

jmp des_ halt 


ass ee eee keke eee ee ee eee eee ee ee aa eee eax exe eeea eee ee eaeea eee eae eeeceeeeeeere res 
startup error 


x 
* 
* 
;* This routine halts the processor after displaying the error message which 
* consists of an exclamation point (!) followed by a number/letter. 

x 

* 


; Error Codes: 
ao see ae EDAC RAM Test of SSAA failed 
Sad os EDAC RAM Test of Mod-257 failed 


 ;ueeeeer eee eee retake eee eee eee eee eee kee eee kee eee eee ee teeta kee eee eee ee ee 


Startup error: 


mov ele al ; error code 
mov aL, 2" 
transmit 
mov al, cl 
transmit 
MOV al, '‘'@' 
transmit 
;First ES 
mov ax, es 
MOV er. 22 
display 
mov ax, es 
mov el. 8 
display 
mov ax, es 
mov el, 4 
display 
mov ax, es 
display 
mov aie ie 
transmit 
;Now DI 
mov ax, di 
mov er. 12 
display 
mov ax, .di 
mov Cie. s 
display 
mov ax, di 
mov cl 4 
display 
mov ax, di 
display 
sehlt: 
jmp sehlt 


:* 
’ 


;* FP Support 


-* 
’ 


2o7 


s 


° 
é 


° 
s 


° 
, 


° 
’ 


e 
i 


Trap for missing floating-point software. 

The floating point initialization routine (__fpmath) will call this routine 

when one of the following conditions occurs: 

(1) 8087 floating point library (87.lib) is linked in but no 8087 coprocessor 
is present, that is, floating point emulator library is not linked. 

(2) Floating point i/o conversions are done, but no floating-point variables 
or expressions are used in the program. 

Default action is to halt the processor. 

PUBLIC __fptrap 


__fptrap LABEL FAR 


MOV AX,3 ; Identify label _ fptrap. 
HLT 
JMP _ fptrap 


ERROR HANDLING 


INT 21H called. Register AH contains the function code. 
If function code is 00H, 25H, 35H or 4CH, the interrupt handler 
will process the call. 
For all other function codes, the interrupt handler will jump here. 
Default action is to halt the processor. 

PUBLIC _ doscalled 


__doscalled LABEL FAR 


If you want to ignore the dos call, 
replace the following instructions. 
MOV AX,4 ; Identify label _ doscalled 
HLT 
JMP __doscalled 
WITH: 
EXTRN __ignored:FAR 
JMP FAR PTR __ignored 
This will cause the interrupt handler to ignore the dos call. 
__ignore is an entry point back to the interrupt handler. 


PROCEDURE __cintDIV: 


PUBLIC __cintDIV 


__cintDIV PROC FAR ; Divide by 0 interrupt handler. 
MOV AX,5 ; User-defined error recovery routine. 
HLT ; Identify label _ cineDiv. 


JMP __cintDIV 


__cintDIV ENDP 


VARIABLE _errno: 


For certain C run-time functions, when an error condition occurs within the 
function, an error code will be placed in the _errno global variable. 

If a function sets the _errno variable upon error, its reference page will 
explicitly Mencionstne “errno variable. 

All of the error codes are described in the Microsoft C run-time library 
reference manual. 


The values of these error codes are listed in the errno.h include file. 


FUNCTION matherr: 


You may supply your own version of matherr function in your C program. 
If you do, you can obtain a value from the type field of the exception 
data structure which corresponds to the math error code listed in the 
math.h include file the Microsoft C run-time library reference 


manual contains a detail description of the matherr fucntion and the 
math error codes 


If you do not lank in your own matherr function, the matherr function 
included in the Microsoft C run-time library will be linked in. 
The function simply returns a zero value. 


If you link in your own version of the matherr function, it may perform 
special error handling if corrective action is taken and the 
the return value should be nonzero. 


PROCEDURE __FF_MSGBANNER: 


The __FF_MSGBANNER procedure will be called when an error condition occurs 
within in a math function and certain C run-time functions. 


It writes the first part of run-time error messages to standard 
error as follows: 


‘'\r\nrun-time error '. 
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; It 1S implemented as a null procedure here. 
PUBLIC __FF_MSGBANNER 

__FF_MSGBANNER PROC NEAR 
RET 

__FF_MSGBANNER ENDP 


; PROCEDURE _ wrt2err: 


ferme wrt2err procedure will be called when an error condition occurs 

; within in a math function and certain C run-time functions. 

; It takes a near pointer in BX (DS:BX) which points to a LSTRING which is 

; to be written to standard error. A LSTRING is a one-byte length followed 
; by that many bytes for the character string (as opposed to a null- 

; terminated string). 

; These LSTRINGs has the form of the first character being a capital letter 
; followed by four digits. For examples, 'R6001', 'M6101', etc. The 

; meaning of these error numbers are explained in detail in the Microsoft C 
; reference manual. 

merne =wrt2err procedure is implemented as a null procedure here. 


PUBLIC _ wrt2err 

__wrt2err PROC NEAR 

; DS:BX points to the LSTRING. 
RET 

mewrtzerr ENDP 


; PROCEDURE __NMSG WRITE: ' ; 
; The __NMSG WRITE procedure will be called when an error condition occurs 

; within in a math function and certain C run-time functions. 

; It searches the MSG segment for the address of a message string corresponding 
; to the error condition. 

; If a message string is found, DS:DX = string address, 
You may process or ignore the error message string. 


CX = string length. 


The follow table lists some of the error message numbers and the message strings: 
je2oSs °: MATH’,13,10,'- floating-point error: ',0 
> 101 ‘invalid',13,10,0 
; 102 ‘'denormal',13,10,0 
melos ‘divide by 0',13,10,0 
; 104 ‘overflow',13,10,0 
mlo> “underflow’,13, 10,0 
metoG  “inexact',13,10,0 
; 107 ‘unemulated',13,10,0 
pe 108 ‘square root’,13,10,0 
mL109 13,10,0 
7 110 ‘stack overflow',13,10,0 
feral "stack underflow',13,10,0 
feiiZ2 ‘explicatly generated’ ,.13,10,0 


PUBLIC __NMSG WRITE 
__NMSG WRITE PROC NEAR 


PUSH BP 

MOV BP,SP 

PUSH DS 

POP ES 

MOV DX,WORD PTR [BP+4] ; DX = error message number 
CMP ba, 253 

JE NOTFOUND ; Skip error message no. 253, 


; But process other error message numbers 


ASSUME DS:DGROUP 


MOV SI,OFFSET DGROUP:MSG ; start of near messages 
TLOOP: 
LODSW ; AX = Current message number 
CMP AX, DX 
JE FOUND ; Found error message string 
INC AX 
XCHG AX, SI 
JZ NOTFOUND ; At end and error message string not found 
XCHG DI, AX 
XOR AX, AX 
MOV Cz .-1 
REPNE SCASB ; Skip until 0H 
MOV Sr, DI 
JMP TLOOP ; Try next entry 
FOUND : 
XCHG AX, SI ; SI = offset to string address 
XCHG DX, AX ; DS:DX = string address 
MOV DI,DX ; Determine length of message string 
XOR AX, AX ; String is terminated with byte Oh 
MOV CK 1 
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REPNE SCASB ; ES = DS already 
NOT CX 
DEC CX ; CX = string length 


; May include user-defined code here to output error message 
; DS:DX = string address, CX = string length 
NOTFOUND: 
MOV SP,BP 
POP BP 
RET 
__NMSG_WRITE ENDP 
PUBLIC _ dataseg 
__dataseg DW DGROUP 


_TEXT ENDS 


EMULATOR_TEXT segment para public 'CODE' 
public _ EmDataSeg 

__EmDataSeg dw EMULATOR_DATA 

EMULATOR_TEXT ends 


BOOTSTRAP SEGMENT AT OFFFFH 


cli 
mov ax, UMCS 
mov ax, UMCS_DATA ;Upper Memory CS start of EPROM FO000:0, 64K 
out ax, ax 
- mov ax, OFFAOh 
: mov ax, O0CO38h 
i out ax, ax 
jmp far ptr START_ 
db 'Jah' 


BOOTSTRAP ENDS 


pRekeeeekkekeak eke aekee keke eke eke eee keke kee eae Kea KKK aKa Ke 


-* 
: 


;* C_ETEXT 


f 


* 
* If you specify the INITDATA control in the PROM86, v5.2 and up, it will 
;* cause PROM86 to place all initializers in ROM starting at this 
i* location. The start-up routine assumes these initializers are placed 
* 
* 


f 


behind program code in ROM and copy them to RAM at power-up. 
: wkaekkkkekkke kkk kkk kak kkk keke kaka Kee Kaka KKK KKK KKK aK KKK KKK KK KKK KKK KKK 


C_ETEXT SEGMENT PARA PUBLIC 'CODE_END' 


PUBLIC) e&ext 
_etext LABEL BYTE ; This label marks the end of program code. 


C_ETEXT ENDS 


END START_ ; Make sure the START_ symbol is here! 


End of startup.asm 
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stpi.h, stpi.c 


SARA S AAALAC ALEC ACATA RAKE KSEE EEAAERAAKERKERARAEAEAAEEKKARERERKKEKELKAEREEERS 


¥ 


* 


r 
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* 


SlPl.H 


Petite Amateur Navy Satellite (PANSAT). 
Embedded ROM software. 


Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
Jim A. Horning (Jah) 


Revision History: 


3 Nov 1993 Jah Creation 


ekeeekeeeeetrereeeeeeeeeeerekeeetetrreertrrrerteer reer ee eeeerereeeetettereere tent / 


fecaef STPI 


#define CMD_STR_LEN 80 


typedef struct 


{ 


char name [10] ; 
void (*fptr) (char *inbuf) ; 
charusage [81] ; 


} cmd_struct; 


Static char *get_token(char *buf, char ‘token) ; 
Static void parse_cmd(char ‘*cptr) ; 
static char *skip_blanks(char *cptr) ; 
Static void clear_screen(char ‘cptr) ; 
static void Inport (char *coeEr) ; 
Static void in portw(char ‘*cptr) ; 
static void out_port(char *cptr) ; 
Static void out_portw(char teptr) ; 
static void pebr (char ‘*cptr) ; 
Static void pebw(char *cptr) ; 
Static void ad_config(char *cptr) ; 
Static void ad_int(char *cptr); 
Static void ad_read(char ‘tcptr); 
Static void ad _status(char ‘cptr) ; 
static void debug_cmd(char ‘cptr) ; 
Static void disp b(unsigned char a) ; 
static void disp w(unsigned int a); 
Static void m_on(char ‘tcptr) ; 
static void m_off (char *cptr); 
Static void m_clear(char *cptr) ; 
static void m_spread(char *cptr) ; 
static void m_ hunt (char *eptr) ; 
static void m_scca(char *cptr); 
Static void m_sccb(char *cptr) ; 
Static void . pa_read(char *cptr) ; 
Static void pa_write(char *cptr) ; 
static void edit (char ‘*cptr) ; 
static void dump (char *tcptr) ; 
Static void load({char *cptr) ; 
Static void goto_load(char *cptr) ; 
Static void msa_cmd(char *cptr) ; 
Static void msb_cmd({char ‘*cptr) ; 
Static void time_cmd(char *cptr) ; 
Static void test_cmd(char *cptr) ; 
static void rf_cmd(char *cptr) ; 
Static void tx_emd (char *cptr) ; 
Static void rx_emd {char *eptr) ; 
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static void eps_cmd(char *cptr); 


static void Emux cmd (char *eptr); 
static void tlm_cmd(char *cptr); 
static void shutdown_cmd(char *cptr) ; 


static void 
#tendif 


bem_cmd(char *cptr); 


#ifndef STPI 
extern void monitor (void) ; 
#tendif 


[RR EE EEE EEE EEE EERE EEE EERE EEE AEE EERE EEE 


Sel. C 


* Petite Amateur Navy Satellite (PANSAT). 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
Jim A. Horning (Jah) 


+ 


x 

* Revision History: A ‘ 

* sosoteteses=22===== 

* Date Who What 

RF eee eee eww He Heme ww +rer eee -- peer eee eee ew ee HH He eH ne ne ee ne ee er re eee ee ee ee er ee er er rr eee 
* 3 Nov 2993 Jah Creation 
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THERE TERE AREER ERE RATE ee ee ee / 
#include <string.h> 


#include <ctype.h> 
#include <math.h> 


#include "gen defs.h" 


#define 
#include 
#undef 


#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 


STPI 
“"Sstp1.h* 
STPI 


rad .h" 
Spem.h" 
Nelock.n" 
“des. h*" 
"eps .h" 

" pcb : h" 
"prince. la 
"modem.h" 
“elma 
emo. hn” 
"sce. h" 
“terms .h" 


/* must be before msu.h */ 


WORDadr(int ch); 


Static cmd_struct cmd_table[] = 


{ 


Peis", clear screen, "CLS Clear the screen”, 
ehelp, parse_cmd, "HELP Display this menu.", 
sade. ad_config, "ADC Show A/D configuration.", 
"adi", ad_int, "ADI Show A/D interrupt information.", 
"adn", ad_read, "ADR <channel> Read A/D channels.", 

"ads", ad_ status, "ADS Show A/D status.", 
"debug", debug_cmd, "DEBUG <0/1> Debug info Off/Onn", 

“ane, INEpOre,, usb] <port> Input. byte from port. , 

=lnw" ; in_portw, "INW <port > Input Word) Lrom port.*, 
"out, out_port, OUT <port> <value> Outpwe byte feom port.", 
SOUtEW", out_portw, NOUIW H<pont > <value> Output word from port.", 
“pCO”, pobr, "PCBR <select> «<addr> PCB read.", 

"pcbw", pcbw, "PCBW <select> <addr> <value> PCB write.", 
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"mo", m_off, 
emi”, m_on, 
ac", m_clear, oc 
fant", m_hunt, 
oS 4 m_spread, 
Pscea", m_scca, 
Beccb", m_sccb, 
"par" , pa_read, 
"paw", pa_write, 
foad", load, 
"goto", goto_load, 
"dump", dump, 
Beant”, edit, 
"sa", msa_cmd, 
"msb", msb_cmd, 
"time", time_cmd, 
eesti”, test_cmd, 
oc.” , rf_cmd, 
ae", tx_cmd, 
roe", rx cma, 
"eps", eps_cmd, 
“tmux*, tmux_cmd, 
"bem", bem_cmd, 


"shutdown", shutdown_cmd, 


‘raim* , tim_cmd, 


parse_cmd, 


}; 


/*ttee reer etter 
+ 
* menitor () 

+ 


eretetrerkeertrereererererereeeeeere eee et 


void monitor (void) 


{ 


"MO Modem OFF.", 
"M1 Modem ON.", 
Modem clear mode 78.12Sk.", 
“HUNT Enter Hunt Mode.", 
"S Modem spread mode 9.842k.", 
"SCCA <WR#> <data> Send data to write register (A).", 
"SCCB <WRH> <data> Send data to write register (B).", 
"PAR PA-100 read registers.", 
"PAW <filename> PA-100 write registers.", 
"LOAD <filename> Load binary image to 1000:0100.", 
"GOTO Jump to 1000:0100.", 
"DUMP <seg> <off> Dump memory.", 
"EDIT <seg> <off> Edit memory locations.", 
"MSA <0/1;r/w/e|s/f> <addr> <data> Mass Storage A Control.", 
"MSB <0/l1:r/w/e:s/f> <addr> <data> Mass Storage B Control.", 


"TIME <YY:MM:DD:HH:MM:SS> Get/Set time.", 
"TEST", 
"RF <0/1; T/R; Tx/Rx; LOP/LOA; LHP/LHA; 


P #; LNAO/LNA1; HPAO/HPA1; E #", 


"TX <text message>", 
SRK <i) Ss", 


"EPS <B A/B C/D/O/T ON/OFF; C sys ON/OFF; V A#/B#/S; I A/B/S/P#; W>", 
"TMUX <A/B CH#/ON/OFF>", 
"BCM <ON/OFF>", 


"SHUTDOWN", 


RTT EEK TEETH KKK KKK KKK 


terekerererererrrrerrrrrre ete eter eee eee ee eee / 


Static char cstr(CMD_STR_LEN + 1]; 


char *cptr = cstr; 
char Cc; 
Static int Le=. Ol. 


Static int end_string FALSE; 


while (is_serial_in() && !end_string) 
{ 
¢ = get_char(); 
if ((i < CMD_STR_LEN) && (c != CR)) 
cstr{i++] = ¢; 
if (c == CR) 
{ 
cstr[i] = NULL_CHAR; 7* replaces CR with a NULL CHAR */ 
end_ string = TRUE; 
} ‘ 
} /* End of WHILE */ 
if (end_string) 


{ 


parse_cmd(cptr) ; 


serial out (CTRL_W) ; /* indicate end of processing command */ 


T 0; 
end_string 


/* reset pointer into command string to zero */ 
/* allow new string building next time */ 


FALSE; 
} 
: fs 


End of monitor () 


zy, 
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eR RSE e Sak ee eR A eRe eee ee ae ee Re EAN ON RRS eR SS EN EK RR EE eS ee heer 
* 
* parse_cmd() 
* 


EERE EERE EEE REE Ee ee ae / 


voidparse_cmd(char *cptr) 


{ 


Prt n, ™; 
charcmd[10]; 
int found; 


Static char last_cmd[80]j; 


ee (epic (0) =——0 1) 
strepy(cptr, last_cmd) ; /* copy last command to this command */ 
else 


strepy (last cmd, cptr) ; /* otherwise, save this command for next time */ 


cptr = get_token(cptr, cmd); 


for (found = FALSE, n = 0; cmd_table[n].name[0] != '\0'; n++) 


{ 


if (stricmp(cmd, cmd_table[n] .name) == 0) 


{ 


found = TRUE; 
if (stricmp(cmd, "help") == 0) 


{ 


home () ; 

clr we, 

dprint ("PANSAT Monitor Commands\n") ; 

dprint ("ssssssasssasseseesesse=\n") ; 

for (m = 0; cmd_table[m].name[0] != '\0'; m++) 


dprint ("%s\n", cmd_table[m] .usage) ; 


} 


else if (cmd_table[n] .name[0] != '\0') 


{ 
dprine ('\n"); 
(*cmd_table[n] .fptr) (cptr); 
aprinte ("\n"); 


} 


break; 


} 


2f [Cle ound) 


{ 


Serialeoue (0x07) 7* Deep for error */ 
dprint ("Command error.\n") ; 


} 


} /* End of parse_cmd() */ 


[LR EEE EEE EERE EERE EERE AEE KEE 
* 


* get_token () 
* 


eevee eer ror or ror rrr init ik ake / 


char *get_token(char *buf, char *token) 
{ 
if (*buf == NULL CHAR) 
{ 
*token = NULL_CHAR; 
return (buf) ; 


} 


while ((*buf != ' ') && (*buf != NULL_CHAR) ) 
*token++ = *buf++4; 
*token = NULL_CHAR; 


if (*buf == NULL_CHAR) 
return (buf) ; 

else 
skip_blanks (buf) ; 
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fee End of get_token() */ 


eee eS SSS W SSSR ES ESET EAST TEE SECT EREKEEEEREKREKAEERSEKAEREREREREREREREKETEEENE 
* 
* skip blanks () 
* 


teteerrerrrerrtrretrretertreerrrrrrrrrrrrsrereretetretrrreterererkinkerecere eee te / 


char*skip blanks(char tbuf) 
{ 
while ((tbuf == ' ') && (*buf != NULL_CHAR)) 
buf++; 


return (buf) ; 


} /* skip blanks() */ 


/teeereereeeereeeer eee eee ekaeekeeeeekekkeeeeeeeeeeee eee kee ee kerketeterrrrrrrrrrrrs 
¥eeerrrrrrrrrrrrretrrrrerrrrreerereeterrrekereerereerkeereereererererereerrkeeererererererererrrrrrre et * 
+t 
+ Supported monitor commands 
t 
teeeteerreeeeeeeerrereeeeeeee eee eekeeeeeeke eee ee eee eee eee eee eee eee eee ee ek eekeetkaet 


teteetererrereserrrreretrrtrrre reese eerer errr rrteer errr rr rrr rrr rere tree ree ee ek t / 


/X eter rere rerereee ere eeee teeters eretereeerreeeeerererekeeeeterrtertkketereertrrrrrrs 


¥ 


* clear_screen() 
+t 


teeetttrrerrerteererrrrrerraetrerrrrrrrrrrerrrrrrrrrrrrrrrrtirrrrrrtrererreceeee es / 


wordclear screen(char *cptr) 
{ 

home (); 

clr(); 


} /* End of clear_screen() */ 


/eteeeeeerereteteeeereeeee eee eee ee eeeeeeeeerereeeeeee eee eeke eer sere ee eke rete 
t 
oan port () 
* 


eetereeeteseterrreseeererererreseereese ee eeeeeee eee errr rere teteterreteeeetes / 


void Aneport (char *eper) 
{ 
char param(20] ; 
unsigned char value; 


cptr = get_token(cptr, param); 
value = inp(cnv_hex(param) ) ; 


dprint("Port %X = %X ", cnv_hex(param), value) ; 
disp_b(value) ; 


} /* End of in port () */ 


/teeeeeeeereeereeee trees ere eee resets ere reer eer rere rrr errr rte kerke tee erreet 


* 


* in_portw() 


¥ 


eeterreereerererrerererereerrrerreeerrerrere ere ree ree reer rrr eet eee ke ee ket t / 


void in_portw(char *cptr) 


{ 
char param(20]; 
unsigned int value; 


cptr = get _token(cptr, param) ; 
value = inpw(cnv_hex(param) ) ; 


dprint ("Port %X = %X ", cnv_hex(param), value) ; 
disp _w(value) ; 


} /* End of in_portw() */ 


/Reeeeeee eee eter ee eee eee eee eee eee eee eee eke kee eee rere eee eee err eee errs 
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+ Sout port () 


* 


REE EEKAR EAE Kaa aaa ee / 


void GUE port (char *eptr) 


{ 


charport[10], value[1i0); 


ecptr 
cptr 


get_token(cptr, port); 
get_token(cptr, value); 


dprint ("Out %X to port ¢X", cnv_hex(value), cnv_hex(port) ) ; 
outp(cnv_hex(port), (BYTE) cnv_hex (value) ); 


} /* End of out_port() */ 


fRRASAESERECEALEERAEERAREAE LAER EASA TAAEEEESREREE EKER ESSA ESE SS EES AR REE RE ee 


* 


*  -out_portw() 


* 


REET EERE ee eee RAK eae ee / 


void out_portw(char *cptr) 


{ 


charport [10], value[10); 


cptr 
eptr 


get token(cptr, port); 
get _token(cptr, value); 


dprint (“Out *X to port %X", cnv_hex(value), env_hex(port)) ; 
outpw(cnv_hex(port), (WORD) cnv_hex (value) ) ; 


} /* End of out_portw() */ 


f/eeteeeteeeeeeeeteeeeeeeeer este eet eee eee eee eee eae eee eke ee 


* 


< pebr 


* 


eaeaeeaaaaaaeebtatkkkeekeeekeekeekaekeaereaeeeaeeerekeeeanrkkeekekkeekeeeekekkkeea / 


voidpebr(char *cptr) 


{ 


char ebut (20): 
unsigned int select, addr, value; 


cptr = get token({eptr, cbuf) ; 
select = cnv_hex(cbuf) ; 


cptr 
addr 


get_token(cptr, cbuf); 
env_hex (cbuf) ; 


value = peb read(select, addr); 
dprint("PCBR tx %x %x", select, addr, value); 


} /* End of pebr() */ 


[RRR EEE EEE REE EEE EEE EEE EERE AEE EKER 


¥ 


*  pcbw 


* 


SOE Re AT SRSA AES AA SEES RAAT ERE EERE ERAT ER AE SAR AES E RELA RETA E EEE EER EO) 


voidpcebw(char *cptr) 


{ 


char cbuf (20); 
unsigned int select, addr, value; 


COUmeugec COkKeM(Gptr, cbuf) ; 
select = cnv_hex(cbuf) ; 


eptre= "set token(cptr, cbuf); 
addr = cnv_hex(cbuf) ; 
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eptr’= 
value = 


env_hex(cbuf) ; 


get_token(cptr, cbuf); 


Peo write (select, addr, value); 


dprint ("PCBW %x %x sx", 


} /* End of pcbw() 


oy, 


select, 


addr, value); 


PRTSSAT STATS AA AAA EEE EAE HE EAE KEKEKET EEE ES 


t 


* disp b() 


t 


errrrrrrrr rrr errr eee / 


voiddisp_b(unsigned char a) 


{ 


wnt mn; 
for (n = 0; n <= 7; n++) 
{ 
if ({(n == 4) 
a@print(*<  "):; 
if (a & 0x80) 
Gpriant ("1"); 
else 
aprant (*°0*) ; 
a=z=a<< l; 


} 


} /* End of disp _b() 


-/ 


s/t eeeerrrrerrereeeeee eee tee eeereeeeeetrerrtr teeter ees 


* 


* disp_w() 


* 


wetter eeeeeeeeeeeeeeeeeeeee eee eee eeekeee eee eee eee eee eee eee ee / 


voiddisp_w(unsigned int a) 


int n; 


oan £ tO 


Ox0A 
0x0C 
Ox0E 
0x10 
0X12 
0x14 


for (n = 0; n «<= 15; n++) 
{ 
if (nv4 == 0) 
aprinct(* ©); 
if (a & 0x8000) 
@prine ("1") ; 
else 
Gpwant ("0"); 
a=z=a << l; 
} 
} /* End of disp _w({) */ 
#define AD BASE 0x80 
#define AD INSTRO AD_BASE 
#define AD_INSTR1 AD_BASE + 
#define AD_INSTR2 AD_BASE + 
#define AD_INSTR3 AD_BASE + 
#define AD_INSTR4 AD_BASE + 
#define AD _INSTRS AD_BASE + 
#define AD_INSTR6 AD_BASE + 
#define AD_INSTR7 AD_BASE + 
#define AD CONFIG AD_BASE + 
#define AD_IER AD_BASE + 
#define AD_ISR AD_BASE + 
#define AD TIMER AD BASE + 0x16 
#define AD FIFO AD_BASE + 0x18 
#define AD_LIMIT AD BASE + 0x1A 


/* Masks */ 


#define RAMOO 
#define RAMO1 


0x0000 
0x0100 
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#define RAMO2 0x0200 


PERE REREEEREREE EERE EEREREEEAEEEEEREEEEEEEE EERE EE EEEEEEEEEEEREE TATE EREREE EEE EEE S 


* 
* ad config () 
* 


ceeeeeeeeee ee eee eee tee eee eee eek eee eee cece eee eet et eee eke teeta eee / 


voidad_config(char *cptr) 


{ 


unsigned int temp = inpw(AD_CONFIG) ; 


dprint ("A to D Configuration Register: *X = %X\n", AD CONFIG, temp) ; 


dprine(" Start = "); 
if (temp & 0x0001) 

dprint("1, Sequencer is running.\n"); 
else 

dprint ("0, Sequencer is stopped.\n"); 


dprint (" Reset = "); 
if (temp & 0x0002) 

dprint("1, unit is still resetting.\n") ; 
else 

aprane G9 0,, unit 1S not resetting. \n") ; 


adprint (* Auto Zero = "); 
if (temp & 0x0004) 

dprint(“1, in progress.\n") ; 
else 

dprint(' oO; not occurring .\n") ; 


dpranc(! Eullecalrpration =. ') > 
if (temp & 0x0008) 

Gprint("1, in progress.\n"); 
else 

aprinmt(20,, mot occurring. \n"); 


aprint (* Standby = "); 
if (temp & 0x0010) 

dprint("1, in standby mode.\n"); 
else 

dprint("0, not in standby mode.\n") ; 


Gprinte” Channel Mask = "); 
1f (temp & 0x0020) 

dprinki 1, FIFO bits 15-13 are sign. \n"); 
else 

d@print("0, FIFO bits 15-13 are pointer.\n"); 


dprint (* Short Auto Zero = "); 
if (temp & 0x0040) 


dprint("1, occurs before every conversion.\n") ; 
else 


dprint("0, disabled.\n") ; 


dpeine (7 Sync = "); 
if (temp & 0x0080) 

@print("1, SYNC pin is an output.\n"); 
else 

G@print("0, SYNC pin is an input.\n"); 


dprint (* RAM pointer = %X\n", (temp & 0x0300) >> 8); 


dprint (" Test = "); 
if (temp & 0x0400) 

dprint("1, in test mode.\n"); 
else 

dprint("0, not in test mode.\n"); 


adprint (" Diagnostic = "); 
if (temp & 0x0800) 

dprint("1, in diagnostic mode.\n") ; 
else 

dprint("0, not in diagnostic mode. \n") ; 


} /* End of ade() */ 


PRR EEE EEE EE AEE 
t 


* ad_int() 
* 
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weererretreteerrrere etree t terre ate eet / 


voidad_int(char *cptr) 

{ 
unsigned int ier = inpw(AD_IER) ; 
unsigned int temp, i; 


aprinth*A to D Interrupts: *X = *X\n", AD_IER, ier); 


daprint (" Interrupts enabled: "); 
for (temp = ier, i = 0; i <= 7; i++) 
{ 

ee (a ver 6) 

if (temp & 0x0001) 
dprame(*¥de ", i); 

temp >> 1; 
} 
aprint (*\n") ; 
dprint (" Sequencer address to generate INT1 = *X\n", (ier & OxO0FO0) >> 8); 
apr int (* # of conversions in FIFO to generate INT2 = %X\n", (ier & OxF800) >> 11); 


} /* End of ad_int() */ 


/A etter easter rrr reer ere eer rrr rere rere eter rrr teeter eter tr 


* 


[ada read 
* 


eeeeerereeeeeeertrrr errr eet eee eee / 


voidad_read(char ‘*cptr) 


{ 


unsigned int c, value, isr, temp; 


double x: 
char buf [20]; 
outpw(AD CONFIG, 0x0002); /* Reset the A/D */ 


while (inpw(AD_ CONFIG) & 0x0002) /* Wait for Reset bit to clear */ 


outpw(AD CONFIG, 0x0008) ; /* Full Calibration */ 
while (inpw(AD_ CONFIG) & 0x0008) /* Wait for calibration to finish */ 


é 


outpw(AD CONFIG, 0x0000); /* Stop sequencer, point to RAM 00 */ 


/* DCS Temperature, MUX+ = INO, MUX- = GND */ 

outpw(AD_INSTRO, OxF202) ; /* acq. time = full way, no wdog, 12-bit, */ 
/* Timer ON, NO sync, Vin- = Gnd, Vin+ = INO */ 
/* Pause = YES, loop = NO */ 
/* Note: pause will happen after loop */ 


/* Modem Temperature, MUX+ IN1, MUX- = GND */ 

outpw(AD_INSTR1, 0xF204); /* acq. time = full way, no wdog, 12-bit, */ 
;* Timer ON, NO sync, Vin- = Gnd, Vin+ = IN1 */ 
/* no pause, loop = NO */ 


/* TMUXA, MUX+ = IN4, MUX- = GND */ 


outpw(AD_INSTR2, 0xF210) ; /* acq. time = full way, no wdog, 12-bit, */ 
/* Timer ON, NO sync, Vin- = Gnd, Vin+ = IN4 */ 
/* no pause, loop = NO */ 

/* TMUXB, MUX+ = IN6, MUX- = GND */ 

outpw(AD_INSTR3, 0OxF218) ; /* acq. time = full way, no wdog, 12-bit, */ 
/* Timer ON, NO sync, Vin- = Gnd, Vin+ = IN6 */ 


/* no pause, loop = NO */ 


/* EPS, MUX+ = IN2, MUX- = GND */ 

outpw(AD_INSTR4, OxF209) ; /* acq. time = full way, no wdog, 12-bit, */ 
/* Timer ON, NO sync, Vin- = Gnd, Vin+ = IN2 */ 
/* no pause, loop = YES */ 


/* RAM 01(1) and 10(2) are not set - limit stuff */ 


/* Timer to slow the conversion rate */ 
/* outpw(AD_TIMER, 0x1000); */ 
outpw(AD TIMER, 2000); 


outpw(AD_ CONFIG, 0x0002); /* Reset the A/D */ 
while (inpw(AD_ CONFIG) & 0x0002) /* Wait for Reset bit to clear */ 
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' 


outpw(AD CONFIG, 0x0001); /* start sequencer */ 
/* Wait for INT 5 - Pause Interrupt */ 
while (tinpw(AD_ISR & 0x0020) ) 

i 


/* Sequencer is stopped, due to Pause in last instruction */ 


/* Wait for 5 samples in the FIFO */ 
while (((inpw(AD ISR) & OxF800) >> 11) < 5) 


# 


c¢ = (inpw(AD_ISR) 
while (c) 


{ 


& OXF800) >> 11; 


value = inpw(AD_FIFO); 
dprint ("%u) ", (value & O0xE000) 
if (value & 0x1000) 
dprint ("-"); 
dprint("tu, ", (value & OxOFFF)); 


So 13) ; 


dprint ("0x%X, ", (value & OXxOFFF)) ; 


x 
x 


(double) (value & OXxOFFF) ; 
(x/4095.0)*5.0; 


Qbrintt-sa.clt Volts", xX) ; 


switch( (value&0xE000) >>13) 


{ 


case 0: 
x = 


/* DCS Temp */ 
(x - 0.5) *100; 


dprant ("9 DES Temp. = $3.31f C", x); 
break; 
case 1: /* Modem Temp */ 
x = 4x — 0-5) 7 201; 
dprint(", Modem Temp. = %73.31f C", x); 
break; 
case 2: /* TMUXA Temp */ 
aprint(", TMUXA Temp. = %d CC", cnv_therm(value&0x0FFF) ) ; 
break; 
case 3: /* TMUXB Temp */ 
dprint(", TMUXB Temp. = %*d C", cnv_therm(value&0x0FFF) ) ; 
break; 
case 4: /* EPS Measurement */ 
adprint(", EPS"); 
break; 


} 


aprintk (*\n- ). 
C--j 


/* Do a diagnostic test 


of 


/* Using Diagnostic mode: VIN+ = 000 = VREFOUT, VIN- = 000 = GND */ 
outpw(AD_INSTRC, CxF2C2); /* acq. time = full way, no wdog, 12-bit, */ 

/* Timer ON, NO sync */ 

/* Pause = YES, loop = NO */ 

/* Note: pause will happen after loop */ 
/* Using Diagnostic mode. VIN+ = 001 = VREF+, VIN- = 001 = VREF- */ 
outpw(AD_INSTk:, CxF225); /* acq. time = full way, no wdog, 12-bit, */ 
outpw(AD CONFIG, Cx00C2), /* Reset the A/D */ 


while (inpw(Ab_CONFIG) & 0x0002) 


? 


/* 


outpw(AD CONFIG, 


/* Wait for INT S 
while (!inpw(AD_ISR & 0x0020)) 


. 
f 


Wait for Reset bit to clear */ 


©x0801); /* start sequencer in diagnostic mode */ 


Pause Interrupt */ 


/* Sequencer is stopped, due to Pause in last instruction */ 


/* Wait for 2 samples in the FIFO */ 
while (((inpw(AD_ISR) & OxF800) 


s> 12) 


< 2) 
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c = (inpw(AD_ISR) & OxF800) >> 11; 
while (c) 
{ 
value = inpw(AD_FIFO),; 
ae 6 (C S22) 
d@print ("Diagnostic: VREFOUT to GND: "); 
else if (c == 1) 
dprint ("Diagnostic: VREF+ to VREF-: "); 
dprint("%u) ", (value & OxE000) >> 13); 
if (value & 0x1000) 
dprint ("=") ; 
adprint("%u, ", (value & OxOFFF)); 


dprint ("Ox%X, ", (value & OxOFFF)); 


(double) (value & OXxOFFF); 
(x/4095.0)*5.0; 


x 
x 


aprant ("43 31f Volts\n", x); 
C=; 


} 


} /* End of ad _read() */ 


/eteeeeteeereeetreetereetrereteteteteteeterreseeteetreeterrrretertre eee tee eee kee et 
® 


* ad_ status 
¥ 


eeerererrrtrereeereteee tere erere reese tee eee eee eee eee eee eee eee / 


voidad status(char *cptr) 


unsigned int isr = inpw(AD_ISR); 
unsigned int temp, i; 


adprint("A to D Interrupts: %X = ¢X\n", AD_ISR, isr); 


aprint (" Interrupts Generated: "); 
for (temp = isr, i = 0; i <= 7; i++) 
{ 
if (1 != 6) 
if (temp & 0x0001) 
adprint("%td ", i); 
ei ies 


} 

eprint (*\n"); 

dprint(" Sequencer's current address = %X\n", (isr & Ox0FO0) >> 8); 
dprint(" # of conversions in FIFO = %X\n", (isr & OxF800) >> 11); 


} /* End of ad_status() */ 


f/rvreteeorretteetetteeeeeeeee eee ee eek keee teeter eee eee ee eee eee eee 


? 


* wm of f () 


¥ 


eeverrreteeteeteeeeeeee eee eee eee eee eee eee eee eee ee / 


voidm_off(char *cptr) 


{ 


modem _off();. 
dprint ("Modem OFF") ; 


} /* End of m_off() */ 


frr everett t teers eee eee eee ee eee eee eee eee eee eee eee eee eee 


¥ 


= moon () 


eeorerertretertteekttteete eects etree eket eke ke / 


voidm_on(char *cptr) 


modem_on(); 


dprint ("Modem ON"); 


} /* End of mion() */ 
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* 


* m _clear() 
* 


KRENEK ae ee eee / 


voidm_clear(char *cptr) 


{ 


modem_Clear () ; 
dprint ("Modem Clear") ; 


} /* End of m_clear() */ 


[ERR EEREEEEEEEEREREREERER ERE REREKEREEERHEAEKEEEEEERE EEE ER EKREEREREEEEEEERENE 


* 


* m_spread() 
* 


ke tkekkeee eee eee eee eke eee eee kee eee eee eke eee eee eee eke eee keke eke eee eee ee / 


voidm_spread(char *cptr) 


{ 


modem spread () ; 
dprint ("Modem Spread") ; 


} /* End of m_spread() */ 


[Reker aee eet eee eke eee eee ere eee eee eee eee eee eke eee kee eee kee kta kee 


* 


* m_ hunt () 
* 


week eke eee keke eee eee eee etek eke eke keke eee eee kee eke / 


voidm_hunt (char *cptr) 


{ 


scc_hunt (); 


} /* End of m_hunt() */ 


[tke eeeeteekeckeeteekee eee etka kkakkkateraet eek kee kere ees 
* 


* m_scca() 
* 


weeeeeeeeteekeeekekeee eee ee tek kee eke ee etka eee eee tek kkke et kekek et tkk k / 


voidm_scca(char *cptr) 

{ 
charreg[(10], value([10}; 
WORD data; 


Goer 
coer 


get_token(cptr, reg); 
get_token(cptr, value); 


if (value[0} == NULL_CHAR) 


{ 
outp(SCCA_CMD, cnv_hex(reg)); 
data = inp(SCCA_CMD) ; 
dprint("SCCA RR#%s = %X ",. reg, data)- 
disp_b( (BYTE) data) ; 


else 
scca_wreg(cnv_hex(reg), cnv_hex(value)) ; 


} /* End of m_scca() */ 


[RRR a a EE EEE EEE ENE EKER 


«x 


=m scep() 


oa 


BREESE AEE EEE EERE EEE E EE EERE EREEE RARER EEREREREREREEKEEHRRENREKEEEREEEE SE / 


voidm_sccb(char *cptr) 


{ 


charreg[10], value[10]; 
WORD data; 
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cptr = get_token(cptr, reg); 
cptr = get_token(cptr, value); 
if (value[0}] == NULL_CHAR) 
{ 
outp(SCCB_CMD, cnv_hex(reg)); 
data = inp(SCCB_CMD); 
dprint("SCCB RR#%s = %X ", req, data) ; 
disp_b((BYTE)data); 
} 
else 


sccb _wreg(cnv_hex(reg), cnv_hex(value)) ; 


} /* End of m_sccb() */ 


/eeeeeeerererrrrrrrertrerrrerterrrrrrrrrrst reteset err rk errrre teeter eee eee eee 


* 


* pa_read() 
* 


eeeerrrerrrerrerereekeeeerrereereeteeeeererrertrerkreke keke eee ete eee eee kee / 


voidpa_read(char *cptr) 
{ 


pal00_read_regs(); 


}) /* End of pa_read() */ 


/eteeeereeee er kereteeeeeeketekeketeekerkketetete keer teeter rkkrerr errr keke ee 
* pa_write() 
* This command requests of the terminal emulator program on the other side of 


* the RS-232 to send the contents of the filename requested via this command 
parameter. The filename is preceeded with a CTRL-Z which indicates to the 


* 


* terminal emulator that a request to open, read, and download a local file 
* across the serial port. The download is complete when a CTRL-Z from the 
* terminal emulator is sent and received at this end. 

* 

* The data across the serial line comes in pairs. The first is the address 
* offset (into the PA-100), followed by the data to be written to that 

* address. If there is no data associated with the filename, then only 


* the terminating CTRL-Z will be sent, causing the count, c, to be zero. 


* 


teeter eeet eee ete eee tetera ete eee ee / 


voidpa_write(char *cptr) 
{ 
char filename [30]; 
Brie x; 
nt eye iy 
Static pal00_instr_struct pal00_config[75}; 


cptr = get_token(cptr, filename) ; 
dprint ("Receiving data from *¢<s.\n", filename) ; 


serial_out ( (BYTE)CTRL_Z); 
dprint("%*s", filename) ; 
serial_out ( (BYTE) CTRL_Z); 


2 


1£ ((c¢ = get char()) == 0) 
dprint("No data downloaded!"); 


else if (c < 75) 
{ 
for (i = 0; i < c; i++) 
{ 
pal00_ config[i].address = get_char(); 
pal00_config[i] .data = get_char(); 


} 


pal00_config[c} .address = OxFF; 
pal00_config[c] .data = OxFF; 


dprint ("Data received for ¢d instructions.\n", c); 


pal00_write_table(pal100_config) ; 
dprint ("Data downloaded to PA100."); 
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} 


else 
G@print ("Error, attempting to load a table greater than 75 elements!"); 


/* End of pa_write() */ 


[Rett k keke eke ebb kaka ak keke keke kkk kik 


load () 


kk ekktktkekekt keke keke eke keke keke kee kkk tk kkk ek kk / 


voidload(char *cptr) 


{ 


} 


char filename [30] ; 

BYTE x; 

unsigned int c, i; 

unsigned long temp; 

BYTE far * ptr; 

temp = ((unsigned long) 0x1000<<16) + (unsigned long) (0x0100) ; 
ptr = (BYTE far *)temp; 


cptr = get_token(cptr, filename) ; 
dprint ("Loading program image from %s to %P.\n", filename, ptr); 


serial out ( (BYTE) CTRL. Y); 
G@print("%s", filename) ; 
serial out ((BYTE) CTRL_Y) ; 


¢ = get char(); 
Cot=— 256° 
C #= gét_char(); 


Te (c i 0) 
aprint ("No program image loaded!") ; 


else 


. 
eens 
while (i--) 
{ 
x = get_char(); 
*ptr = xX; 
te es 


} 


dprint ("Program image loaded, %*d bytes.", c); 


} 


/* End of load() */ 


fee ee eee ee te HEATHER AREER KKK 


goto_load() 


Ee ERAS SSSA RARER AREA REA AEE RARE ESLER EA RECERSEC AERA TES OS / 


voidgoto_load(char *cptr) 


( 


} 


/* Transfer control to the os RAM image at 0x1000:0100 */ 
_asm 
{ 
ela 
mov ax, 0x1000 
pushax 
mov ax, 0x0100 
pushax ; new IP 
SE2 
retf 


; new CS 0x1000 


0x0100 


} 


/* End of goto_load() */ 


fee eke ete ee eee eee eee eee ee ee EEE REET 


dump () 
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voiddump(char *cptr) 


{ 


char buf [10] ; 


Static BYTE far * ptr = OL; 
BYTE val; 

WORD segment, offset; 
unsigned long temp; 

int eras 


cptr = get_token(cptr, buf) ; 
if (buf[0] != NULL_CHAR) 
{ 
segment = cnv_hex (buf) ; 
cptr = get token(cptr, buf); 
offset = cnv_hex (buf) ; 
temp = ((unsigned long) segment<<16) + (unsigned long) (offset & OxFFFF) ; 
ptr = (BYTE far *})temp; 


for (i = 0; i < 256; i += 16) 


dprint("sP °, (BYTE far *) (ptr + i)); 
for (j = 0; j < 16; j++) 
{ 
if (j == 8) 
Gpeinte(* "); 
val = ((BYTE)* (ptr+i+j)); 
if (val < 0x10) 
eprint (*0*%) ; 
dprint(**x ™“, val); 
} 
aprinc(*® ©); 
for (j = 0; j < 16; j++) 
{ 
val = ((BYTE)* (ptr+i+j)); 
if ((val >= 32) && (val <= 127)) 
dprint ("tc",*(ptr+i+j)); 
else 
aprinci*."); 


} 
dprine (9 \in") ; 
} 
ptr += 256; 


} /* End of dump() */ 


/tt eee eee eee eee eee eee eee eee eee eee eee ee 
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¥ 
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voidedit(char *cptr) 


{ 


char buf [10]; 

BYTE far * ptr; 

BYTE val; 

WORD segment, offset; 
unsigned long temp; 


cptr = get _token(cptr, buf); 
segment = cnv_hex (buf) ; 
cptr = get_token(cptr, buf); 
offset = cnv_hex(buf); 


temp = ((unsigned long) Ssegment<<16) + (unsigned long) (offset & OxFFFF) ; 
ptr = (BYTE far *)temp; 


@print (*\NnsP>", per); 
get stringibuf, 50) ; 
while (buf(0]) != NULL_CHAR) 
{ 
val = cnv_hex (buf) ; 
(*ptr) = val; 
ptr++¢+; 
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G@print("\ntP>", ptr); 
get_string(buf, 50); 


} 


} /* End of edit() */ 


TRERRRARARAACAAEAEAD ACRES SERS EE ESATA ERS EERE RARE ERAS SA SESS SEER ENN NSS SEE 
* 
* msu_cmd() 
* 


HK RE EER ERE EEE EEE EEE RE EERE EEK EER KEK / 


#define READ 1 
#define WRITE 2 
#define DUMP 3 
#define NONE 0 
#define FLASH i 
#define SRAM 2 
#define STR_LEN 100 


voidmsu_cmd(char *cptr, int device) 


{ 


char buf(10], addr_buf [10]; 
unsigned long intaddr; 

nipale type = NONE; 
unsigned int data; 

ant action = NONE; 
int i= 0; 

int Dy 

WORD x; 

static BYTE str[STR_LEN] ; 
BYTE @buf [256], val; 
static DWORD daddr = 0; 


Gptre=" Gee token(cptr, but) ; 


be te Olea — 9 GO") /* Turn OFF */ 
msu_off (device) ; 


else if (buf[0] == '1') /* Turn ON */ 
msu_on (device) ; 


else 
{ 
cptr = get token(cptr, addr_buf); 
addr = cnv_lhex(addr_buf); 
if (stricmp (buf, “rs") == 0) /* Read Static */ 
if (debug) 
dprint ("Reading SRAM @ %lx\n", addr) ; 
type = SRAM; 
action = READ; 
} 
else if (stricmp(buf, "rf") == 0) /* Read Flash */ 
{ 
if (debug) 
dprint ("Reading FLASH @ %lx\n", addr) ; 
type = FLASH; 
action = READ; 
} 
else if (stricmp(buf, “df") == 0) /* Dump Flash */ 
{ 
type = FLASH; 
action = DUMP; 
te (addr bull G)> t= *\0') 
daddr = addr; 
/* else, get the next paragraph from the last dump */ 
} 
else if (stricmp(buf, "ds") == 0) /* Dump Static */ 
{ 
type = SRAM; 
action = DUMP; 
ifv{adadr buf {0} t= *\o") 
daddr = addr; 
/* else, get the next paragraph from the last dump */ 
} 
else if (stricmp(buf, "ws") == 0) /* Write Static */ 
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1f (debug) 

G@print ("Writing SRAM @ %1lx\n", addr); 
type = SRAM; 
action = WRITE; 


} 


else if (stricmp(buf, “wf"}) == 0) /* Write Flash */ 
{ 
if (debug) 
dprint ("Writing FLASH @ ¢1x\n", addr); 
type = FLASH; 
action = WRITE; 


} 


else if (stricmp(buf, "ef") == 0) /* Erase Flash */ 


{ 
if (debug) 
dprint ("Erasing FLASH for MSA\n"); 
msu_flash_erase (device) ; 
return; 


} 


else if (stricmp(buf, "af") == 0) /* Address Flash */ 


{ 
if (debug) 
dprint("Setting Flash address = %lx\n", addr); 
msu_set_faddr(device, addr); 


Be Cia, 
} 
else if (stricmp(buf, "cf") == 0) /* Address Flash */ 
{ 
if (debug) 
a@print ("Reading Flash Codes...."); 


dprint ("Flash Codes = %X\n", msu_flash_codes (device) }; 


return; 
} 
else tf (stricmp (buf, “tf£") == 0) /* Test Flash */ 
{ 
if (debug) 
aprint ("Performing Flash test...."); 


msu_ftest (device) ; 
return; 


} 


else if (stricmp(buf, "ts") == 0) /* Test SRAM */ 


{ 
} 


msu_stest (device) ; 


switch (action) 


{ 


case READ: 
if (type == SRAM) 
data = msu_sram_readl(device, addr++) ; 
else 


data = msu_flash_readl(device, addr++); 


while ((data != NULL_CHAR) && (i < STR_LEN-1)) 


{ 


str[i++] = data; 
if (type == SRAM) 

data = msu_sram_readl(device, addr++)j; 
else 


data = msu_flash_readl(device, addr++); 


} 

str[i] = NULL_CHAR; 
dprint("%s", str); 
break; 


case DUMP: 
if (type == SRAM) 
msu_sram_read(device, daddr, (BYTE *)&dbuf, 256); 
else 


msu_flash_read(device, daddr, (BYTE *)&dbuf, 256); 


for (i = 0; i < 256; i += 16, daddr += 16) 


if (daddr < 0x10) 
dprint ¢*0*): 
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if (daddr < 0x100) 
aprine cso"): 

if (daddr < 0x1000) 
aprinc ("0") ; 

if (daddr < 0x10000) 
aprint.("0"):; 

if (daddr < 0x100000) 
aprintk.( 70"); 
@print("%1X ", daddr) ; 
for.) =) 07.3) < 26;) 74+) 


1£ (j} == 8) 
dprrnt Cr"); 
val = dbuf[i+j]; 
af (val << 0x10) 
dprinkt 0"); 
aprint (sx val); 


aprint(*. "); 
for (j = 0; j < 16; j++) 


val = dbuf [i+j] . 
if ((val >= 32) && (val <= 127)) 
dprint ("se", dbuf[i+j]); 
else 
aprimnk().") ; 
} 


dprint (*\n"); 


break; 


case WRITE: 
while ((*cptr != NULL_CHAR) && (i < STR_LEN)) 


{ 
if (type == SRAM) 
msu_Sram_writel (device, addr++, *cptr) ; 
else 
msu_flash_writel(device, addr++, *cptr) ; 
i++; 
SiO enlatcty, 


} 
if (type == SRAM) 

msu_sram_writel(device, addr, *cptr); 
else 

msu_flash_writel(device, addr, *cptr); 
break; 


default: 
dprint ("MSU command error.") ; 


} /* End of SWITCH */ 
} /* End of ELSE */ 


} /* End of msu_cmd() */ 


[ee tet eee eee eet kee koro Oooo ooo oii k siriiinn 
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* msa_cmd() 
*¥ 
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voidmsa_cmd(char *cptr) 


{ 


msu_cmd(cptr, MSAO0O) ; 


} /* End of msa_cmd() */ 


[eee a Eee aaa 
¥ 


* msb_cmd () 


* 
wee ee kok kaa k atta aaa k kkk / 
voidmsb cmd(char *cptr) 


msu_cmd(cptr, MSBO) ; 


} /* End of msb_cmd() */ 
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* debug_cmd() 
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voiddebug_cmd(char *cptr) 


{ 


char buf (10}; 


Gptr = get_token(cptr, buf) ; 


if (buf(0} == '0') 
debug = FALSE; 


Petit {oO} == "1*) 
debug = TRUE; 


} /* End of debug_cmd() */ 


{etki kokoro io rik iio kick oink ii iit ikt 
* 
* time cmd() 
¥ 
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voidtime_cmd(char *cptr) 


{ 


Static int Maaco = 10, 31,, 28/91, 20,51, 30, 131,. 41, 30, 31,30, 31}; 
Static char "dow str(} = {*Thu", "Fri", "Sat", "Sun", "Mon", "Tue", "Wed"}; 
Static char *dom_str[] = "Jan", “Feb",) "Mar", “Apr®, "May", “Jun*, "Jul", 


Ag", “Sep", “Oct", “Nov", “Dec"}; 
unsigned longt, et, tdays, tsecs; 
char buf (20]; 
int year, month, day, hour, min, sec, dow, leap; 


cptr = get_token(cptr, buf) ; 


if (buf[0] == NULL_CHAR) 
{ 
t = get _time(); 
et = get_elapsed_ time() ; 
tsecs = t; 
tdays = t/SECS_PER_DAY; 


/* first, get elapsed years */ 

leap Ze /* corresponds with Modulo four, starting with 1970 */ 
year = 0; 

while (tdays >= 366) 


{ 


If (leap*4 == 0) 


tdays -= 366; 

tsecs -= 366*SECS PER_DAY; 
} 
else 
{ 

tdays -= 36S; 

tsecs -= 365*SECS PER_DAY; 


year++; 
leap++; 
} 
if ((tdays == 365) && ! (leap%4 == 0)) 
{ 
tdays -= 365; 
tsecs -= 365*SECS PER_DAY; 
year++; 


} 


/* now, get the month */ 
month = 1; 
while (tdays >= mdays [month] ) 
{ 
if ((month == 2) && (leap%4 == 0)) 
{ 
tdays -= 29; 
tsecs -= 29*SECS PER_DAY; 


} 


else 
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tdays -= mdays([month] ; 
tsecs -= mdays[month]*SECS_ PER_DAY; 
} 


month++; 


} 


day = tdays; 
tsecs -= day*SECS PER_DAY; 


if (debug) 


dprint ("year=%d, month=%d, day=%td ", year, month, day); 
dprint ("tsecs remaining=%ld\n", tsecs); 


} 


hour = tsecs/SECS_PER_HOUR; 
tsecs -= hour*SECS PER_HOUR; 


min = tsecs/SECS_PER_MIN; 
tsecs -= min*SECS PER MIN; 


sec = tsecs; 
dow = (t/SECS_PER_DAY)%7; 7* OmThu, l=Fri, etc. */ 


dprint ("ss sd ts td, ", dow_str[dow]), day+1, dom_str[month-1], 1970+year) ; 
af “(hour <<) 50) 

dprint ("O%d:", hour) ; 
else 

dprint("sd:", hour); 
if (min < 10} 

dprint("0%d:", min); 
else 

dprint ("sd:", min) ; 
af (sec < 10) 

dprint ("0%d", sec); 
else 

dprint("%d", sec); 


/* Elapsed time */ 
day = et/SECS PER DAY; 


et -= day*SECS PER_DAY; 

Hour = et/SECS_PER_HOUR; 

et -= hour*SECS PER_HOUR; 

min = et/SECS_PER_MIN; 

et -= min*SECS PER_MIN; 

sec = et; 

dprint(" (Elapsed time = "); 


if (day < 10) 

dprint ("0%d:", day); 
else 

dprint ("td:", day); 
LE “hnounrs 250) 

dprint ("0%sd:", hour); 
else 

aprinti=sa-.", hour); 
LES (min < 10) 

dprint ("O%d:", min); 
else 

dprint ("sd:", min); 
if (sec < 10) 

dprint ("0%d)\n", sec); 
else 

dprint ("sd)\n", sec); 


} 


else 


{ 
buf([2] = NULL CHAR; 
year = atoi(buf) - 70; 
if (year < 0) 
year += 100; /* compensate for next century */ 


buf [5] = NULL CHAR; 
month = atoi(buf+3) - 1; 


buf [8] = NULL_CHAR; 
day = atoi(buf+6) - 1; 


buf[11] = NULL_CHAR; 
hour = atoi (buf+9); 


buf[14] = NULL_CHAR; 
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Min = atoi (buf+12) ; 
sec = atoi (buf+15) ; 
leap = (year+2) /4; 

t = 


year*SECS PER_YEAR + leap*SECS PER_DAY; 
while (month > 0) 


t += mdays [month--] *SECS_PER_DAY; 


t += day*SECS PER_DAY; 


t += (hour*SECS PER_HOUR) + (min*SECS PER MIN) + sec; 


set _time(t); 


} 


} /* End of time_cmd() */ 


= 
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#define TOCON OxFF56 
#define TOCNT OxFFSO 
#define TOCMPA OxFFS52 
#define TOCMPB OxFF54 
#define T1CON OxFFSE 
#define T1CNT OxFFS8 
#define TICMPA OxFFSA 
#define TI1CMPB OxFFSC 


voidrf_cmd(char *cptr) 


{ 


static BYTE 


char 
int 


cptr = 


if (stricmp(buf, "0") 
eps_set_power (RF, 


else if (stricmp (buf, 


eps_set_power (RF, 


else if 


{ 


(stricmp (buf, 


bits |= 0x01; 
peb write(c, C, 


} 


else if 


{ 


(stricmp (buf, 


bits &= -OxCl, 
peb_write(c, C, 


else if (stricmy tu? 


{ 
bits }= Ox ce. . 
peb write(é. C. 


} 


else if 


{ 


(stricmy buf. 


bits &= ~-0OxC2, 
pcb_write(0, 0, 


else if 


{ 


(stricmp (buf, 


bits &= ~0x04; 
pebywrree(0, 0, 


bits 
but [10]; 
temp; 


= 0x00; 


get_token(cptr, buf); 


0) 
OFF) ; 


o7°) == 
ON) ; 


bits); 


®r*) == 


0) 


bits); 


tex) 2: 


0) 


rits}; 


=rx™) 0) 


bits); 


[r0p") 


0) 


bits); 
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/* number of leap years since 1970 


else if (stricmp (but, “loa”) 


bitsy |=s0x0d; 
peb write(0, 0, bits); 


else if (stricmp(buf, "“lhp") 


{ 
bits &= ~0x08; 
pebewrite(0, 0, bits); 


} 
else if (stricmp(buf, "lha") 


bits |= 0x08; 
peb write(0, 0, bits); 


else if (stricmp(buf, "p") == 


{ 


Eptr = get token(cptr, but); 


temp = cnv_hex(buf) ; 
temp &= 0x03; 

temp <<= 4; 

bits |= (BYTE)temp; 
peb_write(0, 0, bits); 


else if (stricmp(buf, "“lnao") 


{ 
bits |= 0x40; 
peb _write(0, 0, bits); 


} 


else if (stricmp(buf, "lnal") 


{ 
bits &= ~0x40; 
pcb_write(0, 0, bits); 


else if (stricmp(buf, "hpao") 


{ 
bits &= ~0x80; 
peb_write(0, 0, bits); 


} 


else if (stricmp(buf, “"hpal") 


bits |= 0x80; 
peb wrice (0,0, bits); 


else if (stricmp(buf, "e") == 
{ 
outpw(TOCNT, 0); 
outpw(TOCMPA, 0); 
outpw(TOCON, 0xC001); 


outpw(T1CNT, 0); 
outpw(T1CMPA, 1); 


cptr = get_token(cptr, buf); 


if (buf[0] == NULL_CHAR) 


{ 


0) 


0) 


0) 


0) 


0) 


0) 


0) 


0) 


0) 


/* reverse logic than all others */ 


/* reverse logic than all others */ 


/* maximum count (65536) */ 
/* internal clk, retrigger, CMPA only */ 


/* smallest compare A */ 


/* default to 5 second RF Enable */ 
/* ~5 seconds */ 


temp = 140; 


else 


{ 


temp = cnv_hex (buf) ; 
temp *= 28; 


} 


outpw(T1CMPB, temp) ; 
outpw(T1CON, OxC006); 


} 


} /* End of rf_emd() */ 


/* ext. 


/* ~28 CMPB per second */ 


clk, one shot, CMPA/CMPB dual mode */ 
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void test "emd(char *cptr) 
e 

int Creeks, 

WORD value; 

double _ 4d; 


#define AD _WAIT 5000 


peb_write(EPSO, 3, 0x70); 
peb_write(EPSO, 1, 0x50); 


/* Setup MUXes A/B for first temperature sensors (Calibration resistors) */ 
pcb _ write (TMUXAO, 0, 0x10); 
peb write (TMUXBO, 0, 0x10); 


pcb_write(EPso, 3, 0x80); /* EPS Port 3 */ 
peb_write(EPSO, 1, 0x30); /* EPS Port 1 */ 


eps_set_port2(eps_get_port2()); 


Outpw(AD_CONFIG, 0x0002); /* Reset the A/D */ 
/* Wait for RESET bit to clear */ 
for (x = 0; (x < AD_WAIT) && (inpw(AD_CONFIG) & 0x0002); x++) 
if (x == AD_WAIT) 
{ 
ad flag = 1; 
return; 


outpw(AD CONFIG, 0x0008) ; /* Full Calibration */ 
/* Wait for CALIBRATION bit to clear */ 
for ix = 0; (x < AD_WAIT) && (inpw(AD_CONFIG) & Ox0008); x++) 


if (x == AD WAIT) 
{ 
ad flag = 1; 
return; 


} 


outpw(AD_CONFIG, 0x0000); /* stop the sequencer and point to RAM 00 */ 


/* Program A/D Sequencer: based on schedule for period 0 */ 
outpw(AD_INSTRO, OxF200) ; 

outpw(AD INSTR1, OxF204); 

outpw(AD_INSTR2, OxF208) ; 

outpw(AD_INSTR3, OxF210) ; 

outpw(AD_INSTR4, OxF218) ; 

Outpw(AD_INSTRS, 0xF202) ; /* Pause */ 


/* Setup A/D Timer */ 
outpw(AD_ TIMER, 2000); 


outpw(AD_ CONFIG, 0x0002); /* Reset the A/D */ 
/* Wait for RESET bit to clear */ 
for (x = 0; (x < AD_WAIT) && (inpw(AD_CONFIG) & 0x0002); x++) 
if (x == AD WAIT) 
{ 
ad flag = 1; 
return; 


} 


/* Force A/D to interrupt when S readings in the FIFO occur */ 
/* outpw(AD_IER, 0x2804); */ 


/* Clear any interrupts of the A/D by reading the status register */ 
/* inpw(AD_ISR); */ 


/* Start the A/D Sequencer. Interrupt will occur eventually */ 
outpw(AD CONFIG, 0x0001); /* start sequencer */ 
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/* Wait for 5 samples in the FIFO */ 


while (((inpw(AD_ISR) & OxF800) >> 11) < 5) 


’ 


c = (inpw(AD_ISR) & OxF800) >> 11; 
while (c) 
{ 
value = inpw(AD FIFO) ; 
dprint("%u) *, (value & O0xE000) >> 13); 
if (value & 0x1000) 
apmint ("=") + 
dprint("%u, ", (value & OXxOFFF)); 
dprint ("0x%X, ", (value & Ox0FFF)) ; 
d = (double) (value & OxOFFF) ; 
d= (d/4095.0)*5.0; 
dprint ("+3318 Volts", d); 
switch ( (value&0xE000) >>13) 
{ 
case 0: /* DCS Temp */ 
d = (d - 0.5) *100; 
Gpraneo, Des Temp. = <2.31£ €") d); 
break; 
case 1: /* Modem Temp */ 
d= (d - 0.5)/.01; 
@print(", Modem Temp. = %3.31f C", d); 
break; 
case 3: /* TMUXA Temp */ 
dprint(", TMUXA Temp. = %d C", cnv_therm(value&0x0FFF) ) ; 
break; 
case 4: /* TMUXB Temp */ 
dprint(", TMUXB Temp. = %d C", cnv_therm(value&0x0FFF) ) ; 
break; 
case 2: /* EPS Measurement */ 
dprant ("7 EPS") >; 
break; 
} 
dprant(" \n"}; 
or; 
} 


} /* End of test_cmd() */ 


[RRR HOKRKHEHOOCO STE TE TEES HHO HEE O KEE EEE KERR E EAE 
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* tx_cmd () 
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voidtx_cmd(char *cptr) 


{ 


int ot 
= 
while ((*cptr !+ NULL_CHAR) 
{ 
cha_out_ buiC{.] + "ceptr; 
Cptre++¢; 
i++; 


} 


/* Setup the 


_asm 
{ 
mov ax, SEG cha_out_buf0 
rol ax, 4 
mov bx, ax 
and ax, OxFFFO 
add ax, OFFSET cha_out_buf0 
adc bx, 0 
and bx, Ox000F 
mov dx, D1SRCL 
out dx, ax 


pointer to the source for DMA channel 1 


&& (i < 128)) 


Clee 7. 
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} 


mov ax, bx 
mov dx, D1SRCH 
out ax, ax 


/* Setup the pointer to the destination for DMA channel 1 (Tx) */ 
outpw(D1DSTH, 0x0000) ; 
outpw (D1DSTL, SCCA_DATA) ; 


outpw(D1TC, i); /* DMA Transfer Count */ 

outpw(D1CON, 0x1786); /* DST: i/o, no inc., no dec.; SRC: mem, inc., no dec. 
3 terminate on TC; INT on TC; Dest. Synch; 
* low priority; do not use Tmr2; Byte xfer 
* Start the DMA channel *t/ 


fe /* End of tx_cmd() */ 


/eeeeeee eee keeeerttekekreKeter err rereKeKeKeketeerereteetkeKeKeteeketetereeKene 
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* xrx_cmd() 


* 
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voidrx_cmd(char *cptr) 


{ 


char buf [10]; 


Gptr <= get_token(cptr, buf) ; 


LE 


{ 


aE 


(stricmp(buf, "i") == 0) 


inp(SCCA_DATA) ; 
inp (SCCA_DATA) ; 
inp(SCCA_DATA) ; 


/* Setup the pointer to the destination for DMA channel 0 (Rx) */ 
_asm 
{ 
mov ax, SEG cha_in_buf0 
rol ax, 4 
mov bx, ax 
and ax, OxFFFO 
add ax, OFFSET cha_in_buf0 
adc bx, 0 
and bx, Ox000F 
mov dx, DODSTL 
out dx, ax 
mov ax, bx 
mov dx, DODSTH 
out ax, ax 


} 


/* Setup the pointer to the source for DMA channel 0 (Rx) */ 
outpw(DOSRCH, 0x0000) ; 
outpw(DOSRCL, SCCA_DATA) ; 


outpw(DOTC, 514); /* DMA Transfer Count - include the two CRC bytes */ 


outpw(DOCON, 0xA366); /* DST: mem, inc., no dec.; SRC: i/o, no inc., no dec. 
* terminate on TC; INT on TC; Source Synch; 
: * high priority; do not use Tmr2; Byte xfer 

* START the channel */ 


aprint ("Rx initialized and ready.\n") ; 
Bec; 


(inp(SCCA_CMD) & 0x010) 
adprint("Sync (Flag) not detected, still in Hunt Mode\n"); 


else 


adprint("Sync (Flag) detected!\n"); 


if (striempibet, "S") == 0) 


{ 


a@print ("Tx Underrun/EOM: %u, Rx Overrun: %u\n", a_txunderrun_eom, a_rxoverrun) ; 
Gprint ("Break/Abort: %s‘u\n", a_brk_abort); 
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} 


if (rx_eom) 


{ 


dprint("*%s\n", cha_in_ buf0); 
rx_eom = FALSE; 


} 


else 


dprint ("No message received.\n") ; 


/* End of rx_cmd() */ 
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* eps_cmd() 


* 
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voideps_cmd(char *cptr) 


{ 


char 
static 


Static 


static 
static 


static 


Static 
static 
int 
rit 
Init 
WORD a, 
double 
BYTE b- 


cptr = 


But (10); 
char *ctrls[)={"HeatA", ae "“TMUXA" , "MSA", wn u ie Hs uw We 
w , eu ; t"Ant-Rel ue ' "MSB" - "“TMUXB" ; wRE" p u HeatB u - ir } Ri 
char ~*bat. sw j=("8 Trickle", *B Online", "B Discharge", "EB Charge”, 
"A Trickle", "A Online", "A Discharge", "A Charge"}; 


int  batvemal (2) (9) 
int bat _cmd2[2] [9] 


{{0, 0705-0, OF 15. 37 °Sy 27) tO O02 Oe ee eee ee 
{{0x70, 0x90, OxF1, OxF3, OxF5, 0x10, Oxl0, Ox10,, 0x10}, 
{OxBO, OxDO, OxF7, OxF9, OxFB, 0x10, 0x10, 0x10, 0x10}}; 
(fay 1, 2SBS7)585,9%.565, 6409, 24097) 2409, 0 soon 

(ae 179525) e255 2 Seed Alcea 
int i_sp_cmd[8] {0x00, 0x10, 0x20, 0x30, 0x40, 0x50, 0x60, 0x70}; 
Int =eelespetbl (8le— (4,05, 7, 9, 12, 13, 14, le), 

temp, n; 

bat, dev; 

x; 
tempw; 

d, sign; 


double bat_cnv[2) [9] 


get token(cptr, buf); 


switch (buf [0] ) 


{ 


case 'b!: 
Case) ’B': 
eptre= get token (cptr, bué) ; 
Ley (stricmp (but, *a") == 0) 
bat = BAT A; 
else if (Sstricmp (buf, "b") == 0) 
bat = BAT B; 
else if (buf{0) == NULL_CHAR) 


{ 
tempw = eps_get_battery(); 
dprint ("Battery Controls that are ON (0x%X):\n", tempw) ; 
for (x = 0; x <= 15; x++) 
if (tempw & (1<<x)) 
dprint(" ‘%s", bat_sw[x)); 
Gprint ("\n") ; 
return; 
} 
else 
{ 
dprint ("EPS cmd error: battery (%s) not recognized.\n", buf); 
return; 


cptr = get token(cptr, buf); 
if (stricmp (buf, "c") == 0) 
temp = BAT _CHARGE ON; 


else if (stricmp(buf, "d") == 0) 
temp = BAT_DISCHARGE_ON; 
else if (stricmp(buf, "o") == 0) 
temp = BAT_ONLINE; 

else if (stricmp(buf, "t") == 0) 
temp = BAT_TRICKLE_ON; 

else 


{ 


dprint ("EPS cmd error: control (%s) not recognized.\n", buf); 
return; 


cptr = get_token(cptr, buf); 
if (stricmp(buf, “"on") <= 0) 
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eps_set_battery(bat, temp) ; 
else if (stricmp(buf, “off") == 0) 

eps_set_battery(bat, temp+1); 
else 

G@print("EPS cmd error: option (%s) error.: %*s\n", buf); 
break; 


case “c!:; 
case 'C': 

cptr = get_token(cptr, buf); 

lf {stricmp(but, "emuxa’) == 0) 
dev = PWR_TMUXA; 

else if (stricmp(buf, "tmuxb") == 0) 
dev = PWR_TMUXB; 

else if (stricmp(buf, "msa") == 0) 
dev = PWR_MSA; 

else if (stricmp(buf, "msb") == 0) 
dev = PWR_MSB; 

else if (stricmp(buf, "heata") == 0) 
dev = PWR_HEATA; 

else if (stricmp(buf, "heatb") == 0) 
dev = PWR_HEATB; 

else if (stricmp(buf, "rf") == 0) 
dev = PWR_RF; 

else if (stricmp(buf, "antrel") == 0) 
dev = PWR_ANTREL; 

else if (buf[0] == NULL_CHAR) 

{ 
tempw = eps _get_power (); 
a@print ("Subsystems that are ON (0x%X):\n", tempw) ; 
for (x = 0; x <= 15; x++) 

if (tempw & (l<<x)) 
Gperne(*® *s", ctrls[x]); 

Corin, (?\n") ; 
return; 


} 


else 

{ 
@print ("EPS cmd error: subsystem (%s) not recognized.\n", buf); 
return; 


} 


eEper = get token(cptr, buf) ; 
lPe(striemp (but, “on®)/- == 0) 
eps_set_power(dev, ON); 
else if (stricmp(buf, "off") == 0) 
eps_set_power(dev, OFF) ; 
else 
aprint("EPS cmd error: power control syntax error: *s.\n", buf); 
break; 


case ‘v': 
case 'V': 
eptr = get token(cptr, buf); 
if ({but {oO} == "A") || (bu£[0] == ‘a‘)) 
{ 
bat = BAT _A; 
n atoi (&(buf+1)); 


} 
else if ((buf[0] == 'B') || (buf[0]) == 'b')) 
{ 

bat = BAT_B; 

n= atoi(&(buf+1)); 


} 


else if ((buf[0] == 'S*') || (buf[0] == 's')) 


bat = BAT NONE; 
n= 0; 


else if ((buf[0] == NULL_CHAR) || (temp < 0) || (temp > 8)) 

{ 
dprint ("EPS cmd error: voltage source (%s) not recognized.\n", buf); 
Feturn; 


/* Setup the EPS MUXes via the PCB */ 
if (bat != BAT _NONE) 


Lf (t= 5) ) 
peb_write(EPSO, 3, bat_emdi[bat] [n]); 
peb_write(EPSO, 1, bat_emd2[bat] [n]); 
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dprine ("Battery "); 


if (bat == BAT_A) 
Gprant ("A”) ; 
else 
dprint ("8B"); 
dprint(" Cell # +d (accum.) ", nn); 
a = adr(4); /* EPS uses channel 4 of the A/D */ 
G.= a; 
dad = 5.0* (d/4095) ; 


dprint ("su (O0x*eX), *3.31£ V -> 43.31£ V\n", a, a, d, d/bateenvieaema, 


} 


else /* its the s/c bus */ 
{ 
dorine(’S/C "); 
peb_write(EPSO, 1, OxFD); 
a = adr(4); /* EPS uses channel 4 of the A/D */ 
dad = a; 
d = 5.0* (d/4095); 


dprint ("tu (Ox%X), 63.31£ V -> =3.31f Vin! ja, ad oss 


} 


break; 
case "i": 
case ‘I': 
cptr = get token(cptr, buf) ; 
JE (but (0) == "A*) || (but [0] == ‘a")) 
bat = BAT_A; 
else if 5((but(0) == "B') || (bub [0] == "b")) 
bat = BAT_B; 
Etcesit (bur (Oje== *S") |||) (but (0) == "s")) 


bat = BAT_NONE; 
Has, 1 


else if ((buf[0] == 'P') || (buf [0] 


" 
" 
Oo 


bat = BAT_NONE; 
n= atoi(&(buf+1)); 


else if (buf[0] == NULL_CHAR) 

4 
dprint ("EPS cmd error: current (%S) not recognized.\n", buf) ; 
return; 


} 


/* Setup the EPS MUXes via the PCB */ 
if (bat == BAT_NONE) 
{ 
if (nm == -1) /* its the s/c bus */ 
{ 
peb_write(EPSO, 3, 0x80); 
b = eps_get_port2() | (BYTE)0x01; eps_set_port2(b) ; 
pcb write(EPSO, 1, 0x30); 
a= adr(4); 
ad =a; 
dprint ("S/C current = tu (OxtX), *.31f£ V -> *.31f maA\n", 
a, a, @/819.0, 1000.0*( (d*0.002442) -5.0)); 


else 


peb_write(EPSO, 3, i_sp_cmd[n]); 


b = epsS_get_port2() | (BYTE)0x01; eps _set_port2(b); 
peb_write(EPSO, 1, 0x50); 

a = adr(4); 

G sia; 


dprint("S/P:%d (#%d) current = %u (0x%X), %.31f V -> %.31f£ mA\n", 
n, i_sp_tbl[n], a, a, 4/819.0, 1000.0* (d*0.000488 - 1.0) ); 


} 


else /* one of the batteries */ 


{ 
dprint("Battery "); 
if (bat == BAT_A) 
{ 
dprint ("A"); 
pcb _write(EPSO, 3, 0x90); 
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} 


else 
{ 
aprint(*B"):; 
peb_write(EPSO, 3, OxA0) ; 
} 
b = eps_get_port2() | (BYTE) 0x01; eps_set_port2(b) ; 
pcb _write(EPSO, 1, 0x30); 
a = adr(4); 
dad = a; 


/* Read the direction. */ 


n = peb read(EPS1, 1); Voerort 5 Of the EPS */ 
if (bat == BAT_A) 
temp = 0x01; 
else 
temp = 0x02; 
Signe= (tempore m1) 7 1.0% =1.0;; 


a@print(" current = tu (0x%X), %31£ V ->%31f mA\n", 
‘ a, a, sign*(d/819.0), 1000.0*sign* ((d*0.002442) -5.0)) ; 


) 


break; 


case ‘w': 

case ‘W': 
eps_reset_wdog(); 
dprint ("Watchdog timer reset.\n") ; 
break; 


default: 
a@print ("EPS cmd error.\n") ; 
break; 


} /* End of SWITCH */ 


} /* End of eps_cmd() */ 


f/x eetetereevtkerrrteetteerreeerreeterrerrrrrrrrrrrsrrterrerrtrrrtistteteteertettrrtts 
* 
* WORD adr () 
2 


wetteeeetteeeetereererereeterereeeteereterrerrrraeterrertereeeetrretretateteeetee / 


WORDadr__old(int ch) 

{ 
unsigned int c, value, isr, temp, value_save; 
double Xx; 


outpw(AD CONFIG, 0x0002); /* Reset the A/D */ 
while (inpw(AD_CONFIG) & 0x0002) /* Wait for Reset bit to clear */ 


’ 


outpw(AD CONFIG, 0x0008) ; /* Full Calibration */ 
while (inpw(AD_CONFIG) & 0x0008) /* Wait for calibration to finish */ 


outpw(AD CONFIG, 0x0000) ; /* Stop sequencer, point to RAM 00 */ 


- 


/* DCS Temperature, MUX+ = INO, MUX- = GND */ 

outpw(AD_INSTRO, OxF200) ; /* acq. time = full way, no wdog, 12-bit, */ 
/* Timer ON, NO sync, Vin- =Gnd, Vin+ =INO 
/* Pause = NO, loop = NO */ 


/* Modem Temperature, MUX+ = IN1, MUX- = GND */ 

outpw(AD_INSTR1, 0OxF204) ; /* acq. time = full way, no wdog, 12-bit, */ 
/* Timer ON, NO sync, Vin- =Gnd, Vin+ =IN1 
/* no pause, loop = NO */ 


/* TMUXA, MUX+ = IN4, MUX- GND */ 

outpw(AD_INSTR2, OxF210) ; /* acq. time = full way, no wdog, 12-bit, */ 
/* Timer ON, NO sync, Vin-= Gnd, Vin+= IN4 
/* no pause, loop = NO */ 


/* TMUXB, MUX+ = IN6, MUX- = GND */ 

outpw(AD_INSTR3, OxF218) ; /* acq. time = full way, no wdog, 12-bit, */ 
/* Timer ON, NO sync, Vin- =Gnd, Vin+ =IN6 
/* no pause, loop = NO */ 
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/* EPS, MUX+ = IN2, MUX- = GND */ 
outpw(AD_ INSTR4, OxF208) ; /* acq. time = full way, no wdog, 12-bit, */ 


/* Timer ON, NO sync, Vin- =Gnd, Vin+ =IN1 */ 


/* no pause, loop = NO */ 


/* Dummy instruction to PAUSE */ 
outpw(AD _INSTR5, OxF202) ; 


/* RAM 01(1) and 10(2) are not set - limit stuff */ 


/* Timer to slow the conversion rate */ 
outpw(AD_TIMER, 1000); 


outpw(AD_ CONFIG, 0x0002) ; /* Reset the A/D */ 
while (inpw(AD_CONFIG) & 0x0002) /* Wait for Reset bit to clear */ 


é 


outpw(AD_CONFIG, 0x0001); /* start sequencer */ 


/* Wait for INT 5 - Pause Interrupt */ 
while (!inpw(AD_ISR & 0x0020)) 
; 


/* Sequencer is stopped, due to Pause in last instruction */ 


/* Wait for 5 samples in the FIFO */ 
while (((inpw(AD_ISR) & OxF800) >> 11) <« 5) 


? 


c = (inpw(AD_ ISR) & OxF800) >> 11; 
while (c) 


{ 


value = inpw(AD_FIFO); 


if (((value&0xE000)>>13) == ch) 
value_Save = value & OxOFFF; 


eos 


} 


return (value_ save) ; 


} /* End of adr({) */ 
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voidtmux_cmd(char *cptr) 
{ 

char buf [10]; 

int ch; 

WORDa; 

agouble x; 


cptr = get_token(cptr, buf); 
switch (buf [0] ) 
{ 
case 'a'; 
case 'A!: 
cptr = get_token(cptr, buf); 
if (striemp(buf, "on") == 0) 
eps_set_power (PWR_TMUXA, ON) ; 
else if (stricmp(buf, “off") == 0) 
eps_set_power (PWR_TMUXA, OFF) ; 
else 
{ 
ch = atoi (buf) ; 
if “((ch-< 6) |) (en > 31) 


dprint ("TMUX: bad cmd (%s)\n", buf); 
return; 


} 


pceb_write(TMUXA, 0, 0x10 + ch); 
a = adr(2); 
x =a; 
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x = (x/4095.0) *5.0; 
dprint ("TMUxXA Channel <d: sm (O0x%sX), +3.31f£ V -> sd7"e", 
ch, a & OxOFFF, a & Ox0OFFF, x, cnv_therm(a)); 


} 


break; 


Case '‘b’; 
case BE": 
cptr = get _token(cptr, buf); 


if (stricmp(buf, "on") == 0) 
eps_set_power(PWR_TMUXB, ON) ; 
else if (stricmp(buf, "off") == 0) 
eps_set_power(PWR_TMUXB, OFF) ; 
else 


{ 


ch = atoi(buf) ; 

PE Och <0} | | teh > 325) 

{ 

- dprint ("TMUX: bad cmd (%s)\n", buf); 
return; 


} 


pcb_write(TMUXB, 0, 0x10 + ch); 

a adr(3); 

xX =a; 

x = (x/4095.0) *5.0; 

dprint ("TMUXB Channel td: tu (0x%X), *3.31f V -> td C", 
ch, a & OxOFFF, a & OxOFFF, x, cnv_therm({a)) ; 


} 


break; 


default: 
dprint ("TMUX: bad MUX (%s).\n", buf); 


} 


} /* End of tmux_cmd() */ 
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voidtlm_cmd(char *cptr) 
{ 
int a 
PATE * ptr = (BYTE *)é&@tlm_record; 


serial out (CTRL_X); 
for (i = 0; i < sizeof(tlm_record struct); i++) 
serial out (*ptr++) ; 


} /* End of tlmcmd() */ 
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unsigned int read_eps_ad(void) 
{ 
outpw(AD_CONFIG, 0x0002); /* Reset the A/D */ 
while (inpw(AD_CONFIG) & 0x0002) /* Wait for Reset bit to clear */ 


¢ 


outpw(AD CONFIG, 0x0008) ; /* Full Calibration */ 
while (inpw{AD_CONFIG) & 0x0008) /* Wait for calibration to finish */ 


’ 


/* EPS, MUX+ = IN2, MUX- = GND */ 
/* outpw(AD_INSTRO, OxF269); */ /* Vin- = IN3, Vin+ = IN2 */ 
outpw(AD_INSTRO, OxF209) ; /* acq. time = 1/2 way, no wdog, 12-bit, */ 


/* Timer ON, NO sync, Vin- =Gnd, Vin+ =IN2 */ 


/* no pause, loop = YES */ 


/* Timer to slow the delay before acquisition and consequent conversion */ 
outpw(AD_ TIMER, 1000); /* 32 clocks * 1000 = ~ 4 msec */ 
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Outpw(AD CONFIG, 0x0002) ; 
while (inpw(AD_ CONFIG) & 0x0002) 


f 


/* Reset the A/D */ 
/* Wait for Reset bit to clear */ 


outpw(AD CONFIG, 0x0001); /* start sequencer */ 
/* Wait for INT 5 - Pause Interrupt */ 
while (!inpw(AD_ISR & 0x0020)) 

i 


/* Sequencer is stopped, due to Pause in last instruction */ 


/* Wait for 1 sample in the FIFO */ 
while (((inpw(AD_ISR) & OxF800) >> 11) < 1) 


f 


return(inpw(AD FIFO) & Ox0FFF) ; 


} /* End of read_eps ad({) */ 
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* adr () 
* 
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unsigned int adr(int ch) 


{ 


int feel 
unsigned int total; 


outpw(AD CONFIG, 0x0002); /* Reset the A/D */ 
while (inpw(AD_CONFIG) & 0x0002) /* Wait for Reset bit to clear */ 


f 


outpw{AD_ CONFIG, 0x0008) ; /* Full Calibration */ 
while (inpw(AD CONFIG) & 0x0008) /* Wait for calibration to finish */ 


outpw(AD CONFIG, 0x0000),; /* Stop sequencer, point to RAM 00 */ 


/* Loop Bits set for all */ 

he = 4; 

switch (ch) 

{ 

case 0; /* DCS: Single-ended, Vin+ = INO */ 

outpw(AD INSTRO, OxF200) ; 
outpw(AD INSTR1, OxF202) ; 
break; 


case 1: /* MODEM: Single-ended, Vin+ = IN1 */ 

outpw(AD_INSTRO, OxF204) ; 
outpw(AD_ INSTR1, 0OxF202); 
break; 

case 2; /* TMUXA: Single-ended, Vin+ = IN4 */ 

outpw(AD INSTRO, OxF210) ; 

outpw(AD _INSTR1, 0OxF202) ; 

break; 


case 3: /* TMUXB: Single-ended, Vin+ = IN6 */ 
outpw(AD INSTRO, OxF218) ; 
outpw(AD_INSTR1, 0xF202) ; 
break; 


case 4; /* EPS: Single-ended, Vin+ = IN2 */ 
outpw(AD_INSTRO, OxF208) ; 
outpw{AD INSTR1, OxF202) ; 
break; 


default: 
return(0) ; 
break; 


}  /* End of SWITCH */ 


/* Timer to slow the delay before acquisition and consequent conversion */ 
outpw(AD TIMER, 1000); /* 32 clocks * 1000 = ~ 4 msec */ 


Outpw(AD_ CONFIG, 0x0002) ; 
while (inpw(AD_CONFIG) & 0x0002) 


a 


/* Reset the A/D */ 
/* Wait for Reset bit to clear */ 
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outpw(AD CONFIG, 0x0001); /* start sequencer */ 


/* Wait for INT 5 - Pause Interrupt */ 
while (!inpw(AD_ISR & 0x0020)) 


/* Sequencer is stopped, due to Pause in last instruction */ 


/* Wait for n sample(s) in the FIFO */ 
while (((inpw(AD_ISR) & OxF800) >> 11) < n) 


¢ 


enn «<=. 1) 
return(inpw(AD_ FIFO) & OxOFFF) ; 


else 


for (rotal = 0, i = 0; 1 <« n; i+t) 
total += inpw(AD_FIFO) & OxOFFF; 
return(total/n) ; 


} 


} /* End of adr() */ 
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* sbutdown_cmd() 
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void shutdown_cmd(char *cptr) 


{ 


peb _write(EPSO, 0, 0); /* Battery A control, TMUXA, HEATA */ 
peb_write(EPSO, 2, 0); /* Other subsystem power */ 
pep _write(EPSi, 2, 0); /* Battery B control */ 


Serial out (CTRL _V); 


while (1) 


é 


} /* End of shutdown_cmd() */ 
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* bem_cmd() 
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voidbcem_cmd(char ‘*cptr) 


{ 


char buf {10}; 


Ine ch; 
WORD a; 
double x; 


cptr = get_tokenicptr. buf); 


if (stricmp(buft, *on*) «= 0) 
bem_on « TRUE, 
else if (stricmp(buf, °off*) == 0) 
bem_on « FALSE, 
else 
{ 
dprint(*hattery Charge Monitor is "); 
if (bem_or. 
dprir.: “ae .ny., 
else 
Gprint  *ORPF \n"); 


} 


} /* End of bem_cmd() */ 


End of stpi.h, stpi.c 
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/RRAAAAA AAA Kee KATA AAA 


* 


+ + + *+ © © © &© © &© 4&© @&© 4@© © © 


2 


* 


TERMS .H 
Routines for terminal manipulation. 


Petite Amateur Navy Satellite (PANSAT). 

Embedded ROM software. 

Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
Jim A. Horning (Jah) 


Revision History: 


— ee eee ae ee 
I  — 


Date Who What 

Be Sil genase San pe eee eee cee eee oS 
13 August 1991 Jah Creation 

Pe OCE 1991 Jah Flight terminal routines (assume printer) 

2 Nov 1993 Jah Adopted for DCS 
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#ifdef 


TERMS 


#Hendif 


#ifndef TERMS 


extern void clr(void) ; 

extern void home(void) ; 

extern void mov_xy(int , int); 
extern void erase to_eol (void) ; 
extern void mov_b(int); 

extern void mov_f(int); 

ExteErn vold | mov u(int) ; 

extern void mov_d(int); 

#endif 
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* TERMS.C 

* 

* Routines for terminal manipulation. 

* 

* Petite Amateur Navy Satellite (PANSAT). 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
* Jim A. Horning (Jah) 

* 

* Revision History: 

* S=SSSSSSS252222== 

* Date Who What 

Ee eee ee a ee eee es eee ee oer eee foere--------------- -- - - - He eo ee ee ee ee eee 
* 13 August 1991 Jah Creation 

* 11" OCE +1951 Jah Flight terminal routines (assume printer) 

= 2 Nove 1993 Jah Adopted for DCS 

* 

* 


#include 


#define 
#include 
#undef 


#include 
#include 
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# el 6} 
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void 


( 


Kee eee ee eee eae eeeeeeaeeeeeeeeteeeeeeeeaeee reece eer are eeeeteeaeeeteereee / 


"gen _defs.h" 


TERMS 
"terms.h" 
TERMS 


oOrint.h* 
asec. h* 


elr Gord) 


serial _out(0x1b); foesoe +7 


serial out(0xSb); /* [ = 
serial_out (0x32); Ge */ 
serial_out (0x4a) ; Ls 7 


P /* End of clr() */ 


/eRAReAeeeeeeeeereerererserererereeeeretrtereererrrrkkeeeeereeeerkeerrertrkerereereeeet 
x 

* erase to eol() 

¥ 


eeteeeeeeeeeeeeeeererreerrereeerskeeeeererrititerirkeeer reer teresa eee eee ee / 


void erase to_eol (void) 
{ 
serial out (0x0D); 
serial_out(0x1B) ; 
eerial out(°T"); 


} /* End of erase_to_eol() */ 


/eeeeeeeeterererrrrrrrrrrrertererre terre rete eererer ee eee rere ere reeset 
x 
* home () 
x 


eeeeererrererseeeeeeeeeereee reece eee eee eee eee errr eee ete eee eee eee eres / 


void home () 


{ 


serial out (0x1b) ; f* e5c)*/ 
serial _out(0xSb); /* [ ey 
serial _out(0x3b); /* ; ae 
serial out (0x48) ; /* H 27 


} /* End of home() 


f/eteeeeereeeeerereeererrrrrerereerereeeeeeererrrrerrtrererrrrrrrrrrrrrrrrrrrrrrrererrtes 


® 


* mov_b() - Moves cursor back x characters "ESC[#D" 


® 


teeter reseereeeeee eter eeee te ereeereretrekerereereererererrrtese errs erin eer et / 


void mov_b(int x) 

{ 
while (x--) 
serial out (0x28) ; 


} /* End of mov_b() */ 


f/eteeeeeeeeeerattetterereeeerereeeereerreeeeere ree re ee eee eee eee rere eer eee eee 
® 


* 


* mov_f£() - Moves cursor forward x characters "ESC[#C" 
¥ 


x 


weeetkereeaeeeereteeerrreerteeeereeeere rere eee eee eee eee eee eae / 


void mov_f(int x) 


{ 


while(x=-) 
serial _out(0x2C); 


} /* End of mov_f() */ 


/R EAR eee eee eeeeteee rere Ree ee eee eee eee eee ee eer eek ee terre rere teeter ere ee 
¥ 


* 


* mov_u() - Moves cursor up x rows "ESC [#A" 


x 
® 


seereeeereeeeeeeeeereeeeeeereeeeeeeerkekeeeeereeeerrineerrkrerettingrerrrirererer / 


void mov_u(int x) 


{ 


while (x--) 
serial_out(0x2B) ; 
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} /* End of mov_u()*/ 


feet eeaeteteeeeeeeae eee eee etree eereceee eee ee erre ere eee ee ee eee eee tee eee eee 


* 
* 
* mov_d() - Moves cursor back x characters "ESC[#B" 
* 
* 
* 


eee eT eae ae aa eae ake / 


void mov_d(int x) 


{ 


while (x--) 
serial out (0x2A) ; 


} /* End of mov_da() */ 


[/RAAAA ATT eee eee eT eae ea ae 
* 
* mov. xy () 
* 


WERT eee eee eee Eee ee ea ae ee / 


void mov_xy(int x, int y) 
{ 
Serial out (0x18); 
Serialeour(’="); 
Serial out ( (BYTE) (' * + 
+ 


Ven 9) os 
serial out ((BYTE) (' ' x 


= way) pe 


} /* Bnd of mov_xy() */ 


End of terms.h, terms.c 
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tim.h, tlm.c 
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TLM.H 
Data types and equates for Pansat Telemetry. 


Petite Amateur Navy Satellite (PANSAT). 

Embedded ROM software. 

Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
Jim A. Horning (Jah) 


Revision History: 


who when what 

eer a 2 ae ee ee ee 8 i a oe oe 
Jah 9 June 95 Creation (hardware sensors) 

Jah 27 June 95 Software sensors 

Jah 26 April 96 Adopted for ROM Startup 


tere errerree teeter terete eee ee etek eee eee eter eee eee ae / 


#define NUM_TS 64 /* Number of Thermistors */ 

#define NUM_T 2 /* Number of IC Temperature Sensors */ 

#define NUM_BAT_CELLS 9 /* Number of Battery cells (per battery) */ 
#define TOP_CELL 8 

#define NUM_SP 8 /* Number of Solar Panel Current Sensors */ 

/* Jah */ 

#define NUM_SETS 14 /* Number of Sets in Sequencer Instruction Table */ 


#define CURRENTS SAMPLED 5 /* Number of currents sampled per complete A/D sweep */ 


#define TLM_RECORD_TIME (TWO_MINUTES) 


/UMAAK ATTACKER EKA EERE Tee 


¥ 


¥ 


* 


+ me 


PANSAT Hardware Sensors for ROM Startup. 


This structure can be used both for the raw data read from the 
LM12458 A/D converter (12-bit values reflecting a voltage reading), 
as well as converted values in the appropriate units needed for 
decision making routines. 


eetrerrrrrrr rete kre eee eee eee eee ke ee ee ee / 


typedef struct sensors 


{ 


/* Thermistors */ 
unsigned int ts[NUM_TS]; 


/* IC Temperature Sensors */ 
unsigned int tmp[NUM_T] ; 


/* Voltages */ 

unsigned int vbatta[NUM_BAT_ CELLS} ; 
unsigned int vbattb[NUM_BAT CELLS] ; 
unsigned int vscbus; 


/* Currents */ 

unsigned int ibatta[CURRENTS SAMPLED]; /* over the 42 periods */ 
unsigned int ibattb[CURRENTS SAMPLED]; /* over the 42 periods */ 
unsigned int iscbus [CURRENTS SAMPLED] ; /* over the 42 periods */ 
unsigned int isolar[NUM_SP]} ; 


} sensors struct; 


typedef struct cnv_sensors 


/* Thermistors */ 
signed char ts[NUM_TS}; 


/* IC Temperature sensors */ 
Signed char tmp [NUM_TM]} ; 


/* Voltages */ 

double vbatta; 

double vbattb; 

double vcellsa[{NUM_BAT_CELLS] ; 


LT 


double vcellsb[NUM_BAT CELLS] ; 
double vcellsa_avg; 

double vcellsb_avg; 

double vscbus; 


/* Currents */ 
double ibatta; 
double ibattb; 
double iscbus; 
double isp[NUM_SP]; 


} cnv_sensors_ struct; 


JERE EERE AE ETE T EE EATERS AE EERE EAA AEE AEE EERE EEE EERE EERE EEEEREREEEEREREEE 
* 
* PANSAT Hardware Configuration 
* 


See eee eee eee eee eee eae eee eee eee eae eee tee / 


/* hw_cfg_struct holds software configuration information regarding 
* hardware systems which is to be recorded to the mass storage unit and 
* available for downloading along with recorded hardware sensors. 
£7 

typedef struct hw_cfg 


{ 


unsigned char epscfg[3]; /* Ports 0, 2, and 6 */ 
unsigned char pmaxcfg[19]; /* Paramax regsiters + h/w status */ 
unsigned char Eictg: /* RF configuration */ 


} hw_cfg_ struct; 


/* Indexing into pmaxcfg[] */ 
#define PM_AGC_STATUS1 
#define PM_IPFI_H 

Faerie SPM ters si 


0 /* AGC Status */ 

a /* I Prefilter High Byte */ 

2 /* I Prefilter Low Byte */ 

#define PM QPFI_H 1 /* Q Prefilter High Byte */ 

#define PM _QPFI_L S /* Q Prefilter Low Byte */ 

#define PM _TM_CMD 0 5 /* Time 32 bit frequency command (LSB) */ 

#define PM_TM_CMD_1 6 /* Time 32 bit frequency command */ 

#define PM_TM_CMD 2 7 /* Time 32 bit frequency command */ 

#define PM_TM_CMD_3 8 /* Time 32 bit frequency command (MSB) */ 

#define PM_PH_CMD_0 a /* Phase 32 bit frequency command (LSB) */ 
Zz 


#define PM_PH_CMD 1 0 /* Phase 32 bit Erequency commana */ 

#define PM_PH_CMD_ 2 ale /* Phase 32 bit frequency command */ 

#define PM_PH CMD 3 12 /* Phase 32 bit frequency command (MSB) */ 
#define PM _PNCA_L 3 /* PN Correlation Detector Accumulator (LSB) */ 
#define PM _PNCA_H 14 /* PN Correlation Detector Accumulator (MSB) */ 
#define PM _PNCS L 15 /* PN Correlation Detector Slip Counter (LSB) */ 
#define PM_PNCS H 16 /* PN Correlation Detector Slip Counter (MSB) */ 
#define PM_PNG on? /* PN Generator Status */ 

#define PM_HW 18 /* Paramax hardware interface register */ 


/* Indexing into epscfgp[] */ 


#define EPS PORTO 0 
#define EPS PORT2 a 
#define EPS PORT6 2 


/ARt teeta ee etetet eet tet etek es kot ttt 
* 


*  PANSAT Software Sensors/Configuration/Statistics 
* 


SERA EEE EEA AA ae eee / 


/* sw_cfg holds all software configuration information which reflects the current 
* state of the satellite. 
*/ 

typedef struct sw_info 


{ 


long tod; /* Current data: UTC since 1 Jan 1970 */ 
int ver; /* OS version */ 

unsigned long int passcount; /* Password counter */ 

unsigned long int suaccess; /* # of successful NPS accesses */ 
unsigned long int sufailed; /* # of failed NPS accesses */ 
unsigned long int softerr; /* EDAC: Soft Error count */ 

long serrtod; /* EDAC: Time of last soft error */ 

char far *serraddr; /* EDAC: Current RAM Wash address */ 


} sw_info_struct; 
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hw_cfg_ struct hw_cfg; 


/Aeeee eee esse eee ese ee ese essere eee eee Cee ee eee eee eee ee eee eee ee 
® 
* Complete Pansat Telemetry (hardware and software) 
*® 


texte eerreteeeeeer ee teteeree etek ee kekte eee eee eet ae / 


/* For current (most recent, not stored to the mass storage unit) telemetry. */ 
typedef struct tlm_recent 


{ 


sensors_struct sensors; 

sw_info_struct sw_info; 

DWORD etime; /* elapsed operating time */ 
DWORD tod; /* time/date */ 


feetim recent strict; 


/* For stored telemetry (in mass storage unit). 
* 
* The data stream containing stored telemetry is a series of these structures 
* of which the size is given before the data download begins. 
as 
typedef struct tlm_record 


{ 


sensors struct sensors; 
bem_info_struct bem; 
DWORD etime; /* elapsed operating time */ 
DWORD tod; /* time/date */ 
/* Jah */ 
Zo oeenweetg struct hw crlg;..*/ 
WORD crc: 


} tlm_record_ struct; 


#ifdef TLM 
/* Defines for conversion routines */ 
#define THERM_LOW -31 


#define THERM_HIGH 88 
#define THERM TAB SIZE ((THERM_HIGH - (THERM _LOW)) + 1) 


voidconvert_ad (void) ; 
int cnv_therm(WORD n) ; 


#Hendif 


#ifndef TLM 
extern void convert_ad(void) ; 
extern int cnv_therm(WORD n); 


extern void check_tlm(void) ; 
extern cnv_sensors_ struct tlm_cnv; 


/* Storage for the most recent TLM gathering from the A/D. These are 
* raw data points. 
=/ bs 


extern tlm_recent_struct tlm; 


/* Define storage for the data to be recorded to the mass storage units. 
ry. 
extern tlm_record struct tlm_record; 
#endif 
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Petite Amateur Navy Satellite (PANSAT). 
Embedded ROM software. 
Copyright 


(c) 1996 Space Systems Academic Group, Naval Postgradate School. 
A. Horning (Jah) 


Revision History: 


30 April 96 Creation 


CEE EEE EEE AHHH EAE EEE EEE ea a ee / 


#include 


#include 


#define 
#include 
#undef 


#include 
#include 
#include 


agen Gers .n" 
vpemsh" 


TLM 
eels 1s 
TLM 


‘ad. h®* 
"“elock.h" 
‘Soeben” 


/* Define storage for the most recent TLM gathering from the A/D. 
* raw data points. 
*/ 


tim recent structtlm; 


These are 


/* Define storage for the data to be recorded to the mass storage units. 
*/ 


PiNnececOrdmoemict tim record; 


/* Define storage for converted tlm values for decision making. 
*/ 


cnv_sensors_struct elm Jcnvy; 


/* Starting addresses to begin recording telemetry records to Flash */ 
static DWORD msaf_tlm_ptr = 0; 
static DWORD msbf_tlm_ptr 0; 


/* Conversion factors for telemetry sensors into cnv_sensors */ 
/* Thermistors: This table begins for the temperature beginning 
: at -31 C, and working up per degree C. The table is used 

c in a binary search. Table entries are used as follows: 

* If the A/D value is 4000, then the temperature considered 
* to be -30C, because it is less than the first entry in the 
* table, 4191, which corresponds to -31C. 


7 
Static const int cnv_therm_tab{THERM TAB SIZE] = 
{ 
/* -31 -> -22 */ 
4191, 3949, 3723, 2512, 33127 2127; 2952, 2788, 2634, 2490, 
/* -21 -> -12 */ 
2354, eeacy 2106, 1393), LSe7, i787, 1693; 1604, 1520), 1442, 
/* -11 -> -2 */ 
1368; 1298, L231, LES. PLL, L0Sa; 1002, 953,906, 8627 
: = -1l -> 8 t/ 
820, 760, 743, 707, 673, 642, 611, 583, 556, S30, 
{= 9 => 18 */7 
506, 482, 461, 440, 420, 401, 383, 366, 350, 335, 
/* 19 -> 28 */ 
320,306, 293, 281, 269,257, 296, 236, 226, 212, 
/* 29 -> 38 */ 
ZUG loo LoL 8a, 175,169, 162, 156, 150, 144, 
/* 39 -> 48 */ 
TSR el so ele, LB, Lise, 105, 101, 97, 
/*+ 49 -> 58 */ 
94, 1G 87, 84, Si, 78, aoe a2 70; o7, 
(eee os=> 66 */ 
65; 62, 60, 58, 5S), 54, 52, Say, 49, 47, 
/* 69 -> 78 */ 
46, 44, 43, a5 40, 38, a7) 36, 35, 34, 
{=e oe=> 688 */ 
33, Ba, 31, 30, Zo, 26, 2a, 26, 25), 24 
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} : 


’ 


/* Voltages */ 
static const double cnv_vbatts[BCM_NUM_BATS] [BCM_NUM_CELLS] = 


{ 


{1.0*AD RES, 1.0*AD_RES, 1.90476*AD RES, 1.90476*AD RES, 1.90476*AD RES, 
4.76191*AD RES, 4.76191*AD RES, 4.76191*AD_RES, 4.76191*AD RES}, 
{1.0*AD_RES, 1 0*ADERES, 1.90476*AD RES, 1.90476*AD RES, 1.90476*AD RES, 
4.76191*AD RES, 4.76191*AD RES, 4.76191*AD RES, 4.76191*AD RES} 

be 

#define CNV_VSC (374 *ADURES) 


/* Currents */ 

#define CNV_IBATTS (2.0*AD_ RES) 
#define CNV_ISC (2.0*AD RES) 
#define CNV_ISP (2.0*AD_RES) 


/Reeeeeeeeeeeereteeeeereeeereeeeeeeteteteererreretretetet errr rrrrreeeretrrerertss 


+ 
* 
* 
: 
t 


* 


t 


void convert_ad() 


Take all A/D raw values stored in the telemetry structure, .sensors 
substructure, and convert it to floating point values that are in the 
correct units for higher-level control routines. 


eetreterereerrrrrtrrerrrerrrerrrrrretererrerrtretetretrreetererrererrerrersee rere es / 


void convert_ad (void) 


{ 


register int i; 

double vbatta (NUM_BAT_CELLS] ; 
double vbattb(NUM_BAT_CELLS] ; 
double Lav wib. tse. 


/* Convert Thermistors */ 
for (i = 0; i < NUM_TS; i++) 
tlm_cnv.ts(i}] = cnv_therm(tlm.sensors.ts[i]); 


/* Convert Temperature Sensors */ 
for (i = 0; i < NUM_TM; i++) 
tlm_cnv.tmp[i] = (tlm.sensors.tmp[i]*AD_RES - 0.5)*100.0; 


/* Convert Voltages: Battery A, Battery B, and SC Bus */ 

/* These are accumulated cell voltages. Individual converted 
* accumulated values are not necessary to keep, only to use 
* to obtain the individual cell voltages. 
es 

for {i = 0; i < NUM_BAT CELLS; i++) 

{ 

vbatta [i] 
vbattb [i] 


tlm.sensors.vbatta[i] * cnv_vbatts[0] [i]; 
tlm.sensors.vbattb[i] * cnv_vbatts[1] [i]; 


} 


tlm_cnv.vbatta 
tim_cnv.vbattb 


HW 


vbatta(TOP_CELL] ; /* Battery Total Voltage is same as top cell voltage */ 
vbattb(TOP_CELL] ; 


/* These are individual cell voltages */ 
tlm_cnv.vcellsa[(0)] = vbatta([0]; 
tlm_cnv.vcellsb(0)] = vbattb[0]; 

for (i = 1; i < NUM_BAT CELLS; i++) 

{ ; 
tlm_cnv.vcellsa[i}] 
tlm_cnv.vcellsb[i] 


vbatta(i] - vbatta[i-1]; 
vbattb[i] - vbattb[i-1]; 


Hl 


tlm_cnv.vcellsa_avg += tlm_cnv.vcellsa([i]; 
tlm_cnv.vcellsb_avg += tlm_cnv.vcellsb[i]; 
} 
tim_cnv.vcellsa_avg /= NUM_BAT_CELLS; 
tlm_cnv.vcellsb_avg /= NUM_BAT_CELLS; 


/* The spacecraft voltage */ 
tlm_cnv.vscbus = tlm.sensors.vscbus * CNV_VSC; 


/* Convert Currents: Battery A, Battery B, SC Bus */ 
for (ia = ib = ise = 0.0; i = 0; ie CURRENTS_SAMPLED; i++) 
{ 

if (tlm.sensors.ibatta[i] & 0x8000) 


ia += -1.0*(((tlm.sensors.ibatta[i] & OxOFFF)*CNV_IBATTS) - 5.0); 
else 


281 


/* 
} 


} 


la += (tlm.sensors.ibatta[i] & OxOFFF)*CNV_IBATTS - 5.0; 


1f (tlm.sensors.ibattb[i] & 0x8000) 

ib += -1.0*(((tlm.sensors.ibattb{i] & OxOFFF)*CNV_IBATTS) - 5.0); 
else 

ib += (tlm.sensors.ibattb[i] & OxOFFF)*CNV_IBATTS - 5.0; 


isc += (tlm.sensors.iscbus[i] * CNV_ISC) - 5.0; 


tlm_cnv.ibatta = ia/CURRENTS_ SAMPLED; 


tim cnv.ibateb 


ib/CURRENTS_SAMPLED; 


tlm_cnv.iscbus = isc/CURRENTS_SAMPLED; 


/* Call Battery Charge Monitory V,I, and Temperature data updater. */ 
/* Jah */ 


bem_tlm_ update(); */ 


/* End of convert_ad() */ 


feet eee eee a ae 


* 
* 
* 
* 
* 
* 


* 


signed char cnv_therm() 


Convert A/D value for thermistor reading into a temperature (Celcius) 


using table look up for approximation. A binary search is used to 


speed up the look up process. 


eee ere eee eae / 


int cnv_therm(unsigned int sample) 


{ 


} 


register int mid, start, end; 


Start = 0; 


end 


= THERM_TAB_SIZE-1; 


/* First see if the sample is less than the smallest table 


* value. If so, this corresponds to a temperature greater 
* than that corresponding temperature. 


if (sample < cnv_therm_tab ([THERM_TAB_SIZE-1] ) 


return (THERM HIGH + 1); 


/* Otherwise, the lookup will return the closet temperature, 


* including a temperature below the lowest in the table. 


while ((end - start) > 1) 


{ 


mid = (end + start) /2; 


if (sample == cnv_therm_tab[mid] ) 
break; 

else if (sample < cnv_therm_tab [mid] ) 
Start = mid; 

else 
end = mid; 


((end - start) > 1) 
return (THERM_LOW + mid); 


else 


if ((cnv_therm_tab[start] - sample) <= (sample - cnv_therm_tab[end] )) 
return(THERM_LOW + start); 

else 
return (THERM_LOW + end) ; 


/* End of cnv_therm() */ 


/Rt Tee ea aaa 


* 


* 


+ & 8 © 


voidcheck_tlm() 


Check to see if the A/D acquisition has completed another sensor sweep, 
and if so convert the sensor data into a recent tlm record. In addition, 
check to see if it is time to store the record to mass storage (Flash). 


SESS T TE TEETER ESTE EARNER OWE EKER EE RE REE A ew ee le 
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void check_tlm(void) 


{ 


static DWORD t= OL; 
ad_check(); 


if (samples_ready) 


{ 
ad_collect(); 
convert_ad(); 


memcpy (&tlm_record.sensors, &tlm.sensors, sizeof (sensors struct) ); 
tlm.etime = get_elapsed_time(); 

tlm.tod = get_time(); 

tlim_record.etime = tlm.etime; 

tlm_record.tod = tlm.tod; 

bem_info(&tlm_record.becm) ; 

if ((get_elapsed_time() - t) > TLM_RECORD_TIME) 


msu_save_tlm(tlm_record) ; 


} 


) /* End of check_tlm() */ 


End of tlm.h, tlm.c 
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APPENDIX K. TEST PLANS 


This appendix contains the System Controller tests that were followed while evaluating the hardware and 


software. 


Board Stuffing Tests (SC Hardware) 


e Check distirbution of PCB logic power when board powered off. 
e Check output voltage of DC-DC converter for regulated board power. 
e Verfiy power on sensing circuitry. 

e Check bus isolation buffers (54HC125). 

e Verify clock from crystal oscillator. 

e Check microprocessor Reset circuit. 

e Verify microprocessor CLKOUT. 

e Check power and ground to all ICs. 

e Record current sinked to board. 

e Verify CLKIN to all clocked ICs. 

e Verify connectors. 


e Verify signal filters to A/D inputs (RC-diode circuit). 


Circuit Evaluation (SC Hardware and Software Device Drivers) 


e Attach in-circuit emulation system. 

e Perform and verify microprocessor Reset and microprocessor initialization. 
e Test asynchronous mode of the SCC (use RS-232 terminal on other end). 

e Check data and address buffers. 


e Verify external interrupts are acknowledged by microprocessor. 
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Test memory and chip selects for ROM, EDAC, and peripherals. 


Enable and verify EDAC via tests written for Oechsel [Ref. 21]. Include new test for EDAC reset and 


modified write back. 
Check power switching to Modem board (using the TPS2013). 
Test manual mode of the 82C55. 
Verify PCB write and read. 
Test manual mode of the LM12H458. 
Test conversion of IC temperature probe (LM50) into A/D. 


Enable SCC port A synchronous and check for Flag detection and creation. 


Further Device Driver Tests (SC hardware and software) 


Verify Startup code: CPU init, peripheral init, memory check and clear, stack setup, floating point 


emulation init, passing contro] to main(). 
Test clock generator. 
Test interrupt receive and acknowledge for multiple ISR operation. 
Check EDAC RAM wash chained into the clock generator. 
Verify SCC port B asynchronous modes (9.8, 19.2, and 38.4 kbits/sec). 
Check packet passing into Modem interface using SCC port B. 
Check terminal emulation and high-level print out display. 
Test STPI high-level command interface. 
Check PCB read and write routines (both non-interruptable and re-entrant routines). 
Test EPS control. 
Test TMUX channel select capability. 
Test A/D ISR for data acquisition. 


Test A/D data conversions. 
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Verify Mass Storage SRAM and Flash read and write operations. 


High-Level Software Tests (SC software) 


Check detection of STPI during bootup. 
Check telemetry saving and retrieving to and from the Mass Storage. 
Check Mass Storage Flash for recorded telemetry to allow for state preservation with system operations. 


- 


Verify Battery Charge Monitor: ported from LabVIEW system. Single battery only (A, then B), dual 
battery (A and B), full charge, charge with solar simulation, maintaining battery charges, battery 


discharges, environmental tests, autonomous control for long periods (1 day, 3 day, 1 week). 
Check CRC generation and verification for saved telemetry to Mass Storage. 
Test RF control. 


Check software upload and transfer of control routines (allows new software to be loaded, including 


SCOS). 
Test interface for commands sent through the RF interface. 
Check stored telemetry download and erase. 


Verify scenario checking routines for anomolies. 
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tod 


10 
11 


12 


19 


20 
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